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Chapter 1 


Looking at Ше Basics 


BASICO9 is a computer language created for use with the OS-9 
operating system. Along with standard BASIC language state- 
ments and functions, it includes the most useful elements of the 
PASCAL computer language. 


In brief, BASIC09’s advantages are: 


Fast execution speed 


Full feature editing 


Modular 
programming 
functions 


Interfacing to OS-9 


Structured 
programming 


BASICO9 compiles procedure lines as 
you enter them. When you finish a 
procedure, you can compile it further. 
The result? Procedures that execute 
nearly as fast as machine language. 


The text editor features automatic line 
formatting, search, search and change, 
global search, global search and 
change, line renumbering, and much 
more. You can move in and out of the 
editor quickly and easily. 


You can write small, easy-to-under- 
stand procedures, then chain them to 
create sophisticated programs. You can 
call one procedure from another, 
regardless of whether the called proce- 
dure is in memory or on disk. 


Both you and your procedures can 
take advantage of almost any OS-9 
function from within BASIC, including 
the execution of disk management 
commands and application programs. 


You can structure procedures more 
efficiently and clearly by taking advan- 
tage of a variety of loop commands, 
optional line numbering, and 
BASIC09’s ability to call modules 
written in other computer languages. 
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Memory saving 


features 


Complex data 
structures 


Sophisticated 
graphics 


High speed, 
precision math 


Simple and fast 
debugging 


Using BASIC09 


Strings can be any length. For each 
operation, you can select the most effi- 
cient of five available data types. Com- 
piled procedures use less space. You 
can save several procedures into one 
file. 


Combine any type of data into a single 
dimensioned data structure that you 
can move, store, and assign easily and 
quickly. 


ВАЅІСО9 has three levels of graphics. 
The high resolution graphics and text 
capabilities feature more than 50 
functions. 


BASIC09 has a full range of fast and 
accurate math and transcendental 
capabilities including powers, roots, 
trigonometry, logic, and Boolean 
functions. 


BASICO9 provides superior debugging 
functions. It checks syntax as you 
enter lines. It points to the location of 
your errors and tells you what they 
are. You can stop programs, enter the 
debugger, then continue execution. 
Execution errors automatically put you 
in a debugging mode where you can 
examine values, and step and trace 
your way through faulty procedures. 


Before anything else, make a backup copy of your BASICO9/ 
CONFIG diskette. You can do this using the BACKUP command. 
If you are not familiar with BACKUP, see Chapter 3 of Getting 


Started With OS-9. 


To use BASICO9, boot your computer as described in Getting 
Started With OS-9. Replace the system diskette in Drive /DO 
with the BASICO9/CONFIG backup diskette and type: 


basic@9 
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After а short pause, during which OS-9 loads BASICOO9 from the 
diskette, the screen displays the copyright and a new prompt, 
like this: 


BASIC#9 
RS VERSION 01.00.01 
COPYRIGHT 1980 BY MOTOROLA INC. 
AND MICROWARE SYSTEMS CORP. 
REPRODUCED UNDER LICENSE 
TO TANDY CORP. 
ALL RIGHTS RESERVED 


Ваѕісб9 
Ready 
B: 


The B: indicates that your computer is in the BASIC09 command 
mode. From the command mode, you can issue instructions to 
the system executive to manipulate procedures (programs). 


Requesting More Memory 


Unless you specify otherwise, BASIC09 automatically sets aside 
8192 bytes of memory as a workspace into which you can type or 
load procedures. BASICO9 reserves approximately 1200 bytes of 
the workspace for internal use, leaving you with 6992 bytes for 
workspace. 


There are two ways to set aside more memory for ВА51С09 
operations: 


е You can reserve extra memory when you first enter 
BASICO9 by using the OS-9 memory size option. For 
instance, to reserve 18,176 bytes, enter this command to 
initialize BASICO9: 


basic@9 #18k (ENTER 


е You can also request additional memory after loading 
BASICO9. At the command prompt, B:, type: 


mem 18000 


This tells BASICOO9 to set aside a total of 18,000 bytes of 
memory, if they are available. 
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In both cases, because BASICO9 rounds Ше amount you request 
to the next multiple of 256, the actual reserved memory is 18176 
bytes. 


Note: If your system does not have enough free memory to 
reserve the amount you specify, the workspace size does not 
change. 


You can also use the MEM command to reduce memory. How- 
ever, BASICO9 does not reduce the size of the workspace if doing 
so destroys resident procedures. 


Writing Procedures 


BASICO9 is a modular programming language. Several proce- 
dures can occupy memory at the same time. Each procedure per- 
forms a particular function but can also interact with others to 
form a sophisticated program. 


To create or change procedures, enter the edit mode by typing 
either edit or (E) at the B: prompt. From now on, 
when directing you to enter the edit mode, this manual uses the 
easier to type (E) command. 


Each time you type a procedure line and press (ENTER), the editor 
checks for common errors. This automatic checking lets you 
catch mistakes before you run the program, saving you testing 
and rewriting time. You can even let the automatic checking 
help you learn the rules of BASICO9. If you are not sure about a 
syntax, go ahead and type it the way you think is correct. If you 
guess wrong, BASICO9 shows where the error is and displays a 
message to tell what is wrong. 


BASIC09’s use of modules lets you divide large and complex proj- 
ects into smaller, easily manageable sections. Not only are the 
smaller procedures easier to write and understand, they are also 
easier to test. As well, because BASICOO lets you сай procedures 
that are outside the workspace (the computer's memory where 
you write and edit procedures), you can accumulate libraries of 
procedures to incorporate into future programs. 


You can work on a program's procedures either individually or 
as a group. For example, to work on the procedures as a group, 
save your workspace procedures into a single disk file. When you 
subsequently load the file, BASICO9 automatically loads all of 
the procedures. 
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Modules of Other Languages 


BASIC09 can incorporate procedures from other languages, such 
as Pascal, C, or assembly language. Several users can then share 
the procedures. 


Executing Procedures 


You execute or run programs from the command mode. When 
you enter a procedure, BASIC09 compiles it. This means that the 
procedure is ready for execution as soon as you exit the edit 
mode. For instance, if you create a program named Greeting, 
you can execute it by typing from the command mode: 


run greeting (ENTER 


Leaving BASICO9 


There are two ways you can exit from BASICO09: 
е Atthe B: prompt, type: 
bye 
е Or, at the B: prompt, press (CTRL (BREAK ). 


When you use either method, the OS-9 prompt appears immedi- 
ately indicating that the operating system is waiting for a 
command. 


Note: When you exit BASICO9, you lose all procedures 
residing in the workspace. Be sure to save them on disk 
before leaving BASICO9. 


The Keyboard and BASIC09 


You can use some keys and key sequences to produce special 
characters and to accomplish special ВАЅІСО9 functions. You ini- 
tiate a key sequence by pressing one key and holding it down 
while pressing a second key. The following list summarizes your 
keyboard’s special functions: 
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(CTRL) 
(cra. (s) 


Produces graphic characters. Press char 
where char is a keyboard character). 


A control key that you use with other keys. 
(See below.) 


Stops the current program execution and 
returns to Ше B: prompt in BASICO9's com- 
mand mode. 


Moves the cursor back one space. 


Produces an underscore character. 
Produces a left brace (4). 
Produces a right brace (+). 
Produces a tilde (~). 

Produces a backslash (\). 


Performs an ESCAPE function and sends an 
end-of-file message to a program receiving 


keyboard input. To be recognized, 
must be the first thing typed on a line. 


Stops execution of a program and causes 
BASIC09 to enter the Debug mode. 


Displays the next window. 
Displays the previous window. 


Deletes the current line. 


Activates or deactivates the shift lock function. 
Produces a vertical bar (|). 

Produces an up arrow (4). 

Produces a left bracket (t). 

Produces a right bracket (1). 
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CTAL |0) 
CTRL 


ENTER 


Redisplays the last line typed, and positions 
the cursor at the end of the line, but does not 
process the line. Press to process the 
line, or edit the line by backspacing. If you 
edit, press (CTRL(A) again to display the edited 
line. 


Redisplays the current command line. 


Temporarily halts video output. Press the 
space bar to resume output. 


Performs a carriage return or executes the 
current command line. 
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Sample Session 


Although BASIC09 has several functions or modes, they all work 
together to make programming as simple as possible. The easiest 
way to learn how BASIC09 and its functions operate is to write 
and run a program. This chapter provides sample statements 
and instructions to help you learn how to use BASIC09. 


To create and execute a program: 
1. Load BASIC09 and enter the edit mode. 
2. Type the BASIC program. 
3. Enter the system mode and test the program's execution. 
4. Debug the program. (Correct any programming errors.) 
5. Save the completed program on disk. 
6. Load the program into memory and use it. 


То begin the program, execute BASIC09. To be sure you have 
enough room in which to work, reserve a workspace of 10,000 
bytes by typing: 


basic89 #10K 


The BASIC09 system mode prompt, B:, appears after the copy- 
right message. In the system mode, you can do such things as 
save and load procedures, change workspace ‘size, and rename 
and delete procedures. 


Creating a Procedure 


To write procedures, you must be in the edit mode. You get there 
by typing: 


е [ENTER 


This causes Ше screen prompt to change to Е:, and Ше screen 
displays: 


PRDCEDURE Program 


Because you didn't give a program name when you entered e, 
BASICO9 selects the name Program for you. Now, you must 
write the code to make Program do something. 
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Commands and Program Lines 


There are two responses you can give at the edit mode prompt. 
You can type an edit command, or you can type a program line. 
If you type a program line, you must type a space as the first 
character in the line. If you type an edit command, do not pre- 
cede it with a space. To make listings easier to read, this man- 
ual uses the symbol [] to indicate spaces before every line. It also 
uses the П symbol in some procedure lines to indicate the correct 
number of spaces needed. Whenever you see either a space or a Ü 
symbol in a procedure you are typing, press the space bar. 


To type the procedure in this chapter, begin each line at the E: 
prompt. After typing a line, check it for mistakes. If you make a 
mistake, use to move the cursor back. Correct Ше mistake. 
Then, type the remaining portion of the line. If there are no mis- 
takes, press (ENTER). 


ВАЅІСО9 checks each line when you press (ENTER). If you make a 
mistake in syntax or form, BASICO9 displays an error message. 
An arrow points to the place in the program line where the error 
occurred, and a message number indicates the type of error. 
Refer to Appendix A for an explanation of the error codes. 


If, after you enter a line, you find that you made a mistake, type 
d to delete the line. Then, retype the line. Later, the man- 
ual tells you how to change text in existing lines. 


The following program helps you do a bit of arithmetic. To get a 
feel for BASICO9, type and execute the program as directed. 
Remember, when you see either a space or П, press the space bar. 


ODIM NUMBER1 ,NUMBER2: INTEGER 

DINPUT "Туре Number..." ;NUMBER1 

DINPUT "Type another....";NUMBER2 
DPRINT "The sum of the numbers is... "; 
OPRINT NUMBER1 + NUMBER? 

DEND 
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Executing а Procedure 


To execute Ше procedure, quit the edit mode by typing q (ENTER). 
The compiler further processes your procedure, and the B: 
prompt reappears. To execute the program, type: 


run [ENTER 


Type in numbers when asked, and the procedure produces their 
sum. If you want to save the program on disk, the next chapter 
tells you how. Chapter 4 introduces several other edit mode com- 
mands to search, display, insert, and change programs lines and 
text. 
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The System Mode 


The BASIC09 command interpreter processes system commands. 
At the B: prompt, you can enter system commands іп either 
upper- or lowercase letters. Some commands operate on the pro- 
cedures in the workspace. Others provide functions independent 
of any procedures. Following is a list of all system commands 
and their purposes. 


Command 


$ 
BYE or 


CHD 


CHX 
or DIR 


EDIT or E 
KILL 


LIST 
LOAD 
MEM 
PACK 


RENAME 
RUN 


SAVE 


Function 


Calls the shell command interpreter to execute 
an OS-9 command. 


Returns you to the OS-9 system or to the pro- 
gram that called BASICO9. 


Changes the current OS-9 data directory. 
Changes the current OS-9 execution directory. 


Displays the name, size, and variable storage 
requirement of each procedure in the 
workspace. 


Enters the procedure editor-compiler mode. 


Erases one or more procedures from the work- 
space. 


Displays a formatted listing of one or more 
procedures. 


Loads all procedures from a disk file into the 
workspace. 


Displays in bytes the current workspace size, 
or reserves a specified amount of memory for 
the workspace. 


Condenses (compiles) one or more procedures. 
Changes a procedure’s name. 


Causes a procedure in the workspace to 
execute. 


Writes one or more procedures to disk. 
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Renaming Procedures 


BASIC09's RENAME function is important for two reasons: 
First, it lets you load into the workspace procedures that have 
the same name. After you rename the workspace procedure you 
can load the second file. Second, if you let BASIC09 use the 
default procedure name, “Program,” you can rename the proce- 
dure before saving it to disk. By doing this, you avoid writing 
over—and destroying—an existing procedure file. 


To change the name of the procedure you created in the previous 
chapter from Program to Add, type: 


rename program add [ENTER 


Listing Procedure Names 


You can use the DIR command to see if RENAME worked prop- 
erly. DIR displays the names and sizes of all procedures in mem- 
ory. Because programmers use this command frequently, the 
system recognizes a shorthand call. Instead of typing dir (ENTER), 
you only need to press (ENTER). This displays a table of the proce- 
dures in the following format: 


Name Proc-Size Data-Size 
*add 182 32 

add1 217 42 

add2 218 42 
2198 free 


Proc-Size refers to the number of memory bytes required for the 
procedure. Data-Size refers to the number of memory bytes 
required for the procedure's variables and data structures. The 
asterisk indicates the current procedure. System commands act 
on the current procedure unless you indicate otherwise. 


The last line of the DIR display tells you how many free bytes of 
memory remain in the BASIC09 workspace. 


Listing Procedures 


You сап use the LIST command to view procedure lines. То dis- 
play the current procedure, type: 


list (ENTER) 


The System Mode / 3 


For example, this is the listing of a procedure named Alpha.bak: 


PROCEDURE Alpha—bak 


0000 DIM A:STRING 

2007 DIM T:INTEGER 

@00Е 

OOF PRINT "Неге is the alphabet 
backwards:" 

0032 PRINT 

0034 FOR T=90 TO 65 STEP -1 

0044 PRINT CHRSCT); 

8051 PRINT " "5; 

0057 NEXT T 

08062 PRINT 

8064 PRINT 

8066 END 


When you list a BASIC09 procedure, the system precedes each 
line with a relatiue storage address. The relative address of the 
first procedure line is always 0. In the previous example, the 
beginning address of the second procedure line in the workspace 
is 07 units from the beginning. The beginning address of the 
third line is OE hexadecimal (14 decimal) storage units from the 
procedure beginning. 


These I-Code addresses provide a way for the compiler to let you 
know where it finds an error when one occurs. 


Because BASICO9 compiles programs into I-Code, it must disas- 
semble them before it can display them on the screen. This 
means that the lines might not look exactly as typed. For 
instance, BASICO9 converts lowercase keywords (command 
names) to uppercase. BASICO9 also eliminates some spaces. If 
your program uses control statements such as IF/THEN, FOR/ 
NEXT, and LOOP/ENDLOOP, the lines in these decision mak- 
ing or looping structures are indented as shown in the 
Alpha.bak example. Regardless of the appearance of your listed 
procedures, they execute correctly if you type their commands 
correctly. 
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Listing Procedures to a File 


There might be times when you want to send a formatted proce- 
dure listing, including I-Code addresses, directly to а file. You 
can do this using OS-9’s redirection symbol, >. To save the 
Alpha.bak procedure on a file named Alpha.list in the current 
data directory, type: 


list alpha.bak >alpha.list 


If you have several procedures in the workspace and want to list 
more than one to a disk file, separate the procedure names with 
commas, like this: 


list alpha.one,alpha.two,alpha.three За1рНа.а! 1 


In both of the preceding cases, the system creates Ше Alpha.list 
file and stores the specified listings in it. If you use a file name 
that already exists, BASICO9 displays the prompt: 


Rewrite?: 


If you press (Y), the system destroys the original file and over- 
writes it with the new listing. If you press (М), the LIST process 
terminates. 


If you wish to list a procedure, or group of procedures, to a file 
that is not in the current data directory, be sure to specify the 
complete pathlist, such as: 


list alpha.bak > /d1/programs/alpha.rev (ENTER) 


Listing Procedures to a Printer 


In the same manner as you list procedures to a disk file, you can 
list one or more procedures to your printer. Make certain your 
printer is connected and turned on, then again use the redirec- 
tion symbol, but this time specify the printer device, like this: 


list alpha.bak >/р (ENTER) 
Or: 


list alpha.one,alpha.two,alpha.three >/р 


3-4 


The System Mode ! 3 


Using a Wildcard 


Using the OS-9 wildcard, *, you can list all procedures in the 
workspace. For instance, if the procedures Alpha.one, Alpha.two, 
and Alpha.three exist, list them to the screen by typing: 


lists 

Send the list to a file by typing: 
list* alpha.all 

Or send the list to your printer by typing: 
list* /p 


Note: When you use the wildcard, the name of the file or 
device to receive the listing immediately follows the LIST* 
command. Do not use the redirection symbol. 


Saving Procedures 


You ean save one or more procedures to disk using the SAVE 
command. Unlike LIST, SAVE does not include relative 
addresses. However, the syntaxes for the SAVE and LIST com- 
mands are identical. To save the procedure Alpha.bak to the cur- 
rent data directory, type: 


save alpha.bak alpha.bak 


If Alpha.bak is the current procedure, you can save it in a file 
named Alpha.bak by typing save (ENTER]. 


To save all of the procedures in the workspace to a file named 
All.programs in the current data directory, type: 


save* All.programs 


As with LIST, to save one or more procedures in a file that is 
not in the current data directory, make sure you specify a com- 
plete pathlist. 


To save all the files in the workspace to a disk file with the 
same name as the current procedure, type save» (ENTER). 


If the disk file you specify does not exist, BASICOO9 creates it. If 
it does exist, the system displays the prompt: 


Rewrite?: 
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Press [Ү) to write over the old file with the specified file. The old 
file is destroyed. 


Press (N) to terminate the SAVE operation. 


Loading Procedures 


To load a saved procedure back into BASICO9's workspace, use 
the LOAD command and specify the appropriate pathlist. For 
instance, if your current directory is still the directory contain- 
ing Alpha.bak, load the procedure by typing: 


load alpha.bak 
To load Alpha.bak from the PROGRAMS directory on Drive /D1, 
type: 

load /d1/programs/alpha.rev 


You can run and edit a loaded procedure in exactly the same 
manner as you would a procedure you created. 


You can load any number of procedures into the workspace as 
long as your computer has sufficient memory. However, be care- 
ful that you do not load a procedure with the same name as a 
procedure already existing in the workspace. If you do, the new 
procedure overwrites (destroys) the original procedure. You can 
rename workspace procedures to avoid this problem. 


Deleting Procedures from the Workspace 


You can clear the workspace of one or more procedures using the 
KILL command. For instance, to remove Alpha.bak from the 
workspace, type: 


kill alpha.bak 


To remove more than one procedure from the workspace, sepa- 
rate the procedure names with commas. To delete Alpha.one and 
Alpha.two, type: 


kill alpha.one,alpha.two 


To clear the entire workspace, regardless of the number of proce- 
dures it contains, use the BASICO9 wildcard, *. Type: 


kill» (ENTER) 
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Changing Directories 


You change working directories in BASICO9 and OS-9 in the 

Q same manner, by using the CHD and CHX commands. CHD 
changes the data directory, and CHX changes the execution 
directory. 


BASIC09 saves files in, or loads files from, the data directory, 
unless you specify differently in the command pathlist. It stores 
packed procedures in, or loads PACKed procedures from, the exe- 
cution directory, unless you specify differently in the command's 
pathlist. 


Also, if you want to access OS-9 commands from BASIC09, the 
system first looks for the commands in memory. If they are not 
there, it looks for them in the execution directory, unless you 
specify differently. 


If your data directory is the ROOT directory, and you wish to 
change to a directory named PROGRAMS that is a subdirectory 
of the ROOT directory, type the following command from the 
command mode В: prompt 


© chd programs [ENTER 


If your current execution directory is the system's CMDS direc- 
tory, and you want to change to a CMDS directory in the sub- 
directory BASIC, type: 


chx basic/cmds [ENTER 


Whenever you change to a directory other than an immediate 
subdirectory, specify a complete pathlist. 


Executing OS-9 Commands 


BASICOO lets you use OS-9 commands at any time from the sys- 
tem mode. To do so, precede the command with a dollar sign ($). 
For instance, to look at the current data directory, type: 


$dir 
о То view Ше current execution directory, type: 


$dir х [ENTER 
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АП OS-9 commands are available, and you сап copy files, format 
diskettes, list files, or use any other functions from the system 
mode. The only restriction is that your computer must have 
enough free memory to handle the command you call. If you find 
that there is not enough memory, try using the MEM command 
to reduce reserved memory. Then, try the command again. 


Auto-Execute Procedures 


The BASICO9 compiler makes two passes through the procedures 
you write. When you enter the command, the compiler performs 
an initial compilation, checking for any syntax errors. When you 
leave the edit mode, the system compiles the procedure a second 
time and checks for any programming errors. With the PACK 
command, you can further compile your procedures so that they 
are smaller and execute even faster. 


PACK causes an extra compiler pass that removes names, line 
numbers, and non-executable statements. Before packing a 
procedure, be sure you save it. Unless you do so, you can- 
not make further changes to the procedure. 


Once you pack a file, you cannot list or edit the packed version. 
However, if you save the procedure to disk before packing, you 
can still list and edit the original file, then pack it again. 


When you save a packed procedure on disk, BASICO9 does not 
normally store it in the data directory. Because the procedure is 
now executable, the system stores it in the current execution 
directory. 


For. instance, to convert Alpha.bak to a packed procedure in Ше 
execution directory, type: 


pack alpha.bak 


If you want to save a packed procedure under a different file- 
name, use the OS-9 redirection symbol: 


pack alpha.bak > backwards (ENTER) 


After packing a procedure, you can delete it from the workspace. 
If you then run it, BASICO9 automatically loads the file from 
disk and executes it. 


The following is a sequence of commands that demonstrate pack- 
ing and executing a procedure named Alpha.bak: 
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pack alpha.bak packs the procedure and stores 
it in the execution directory. 


о kill alpha.bak deletes the procedure from the 


workspace. 


run alpha.bak loads the file into memory 
outside the workspace and 


executes it. 
kill alpha.bak deletes the module from 
memory 


You do not need to kill the file immediately after execution, but 
until you do, the file reduces available memory. 


Chapter 4 


Тһе Edit Mode 


о You briefly used the ВА51С09 built-in editor to create Ше Add 
procedure in Chapter 2. In addition to the features you learned 
there, the editor has other important functions. 


Although you can use any text editor or word processor to write 
BASICO9 procedures, the BASICO9 editor offers two handy 
features: 


ө It is both string and line number oriented. You can 
search for strings of characters, and replace them, and 
you can reference text with optional line numbers. 


е It interfaces with the compiler and decompiler. This fea- 
ture lets BASICO9 check continuously for syntax errors 
and enables you to use procedures that conserve memory. 


Edit Commands 
© The following is а summary of the edit commands: 


Command Function 

Moves the edit pointer to the next line. Causes 
a command to execute. 

+ number Moves the edit pointer ahead number lines. 

+* Moves the edit pointer to the last line. 

-number Moves the edit pointer back number lines. 

-* Moves the edit pointer to the first line. 

text Inserts an unnumbered text line before the 
current line. 

ntext Inserts the line numbered n in its correct 
numeric position. 

n Moves the edit pointer to the line numbered л. 

° e/strl/str2/ Changes the next occurrence of str1 to str2. 
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Command Function 

c*/strl/strZ/ Changes all occurrences of str1 to str2. 

d Deletes the current line. 

d* Deletes all the lines in the procedure. 

1 Lists the current procedure line. 

1* Lists АП the procedure lines. 

q Terminates the edit session. 

г Renumbers lines beginning at the current line 
in increments of 10. 

үз Renumbers all lines in increments of 10. 

үп Renumbers lines beginning at Line n in 


increments of 10. 


r nl n2 Renumbers lines beginning at Line n1 in 
increments of n2. 


s /string! Searches for the first occurrence of string. 


s* /string/ Searches for all occurrences of string. 


Using the Editor 


The easiest way to understand the edit commands is to use 
them. The following sections show you the functions of BASICO9 
edit mode. 


The manual uses line numbers in the following procedure to 
acquaint you with all the functions of the editor. Remember, 
however, line numbers are not required with BASICO9. Proce- 
dures and programs without line numbers are shorter, faster, 
and easier to read. 


First, you need a procedure with which to work. Position your- 
self in the system mode. Then, type this line: 


e prose [ENTER 
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Now, type Ше following. (Remember, the small rectangle герге- 
sents a space.) 


0100 DIM PHRASESC30):STRING 

0120 FOR T=1 TO 30 

0130 READ PHRASESCt) 

0148 NEXT T 

0160 PRINT 

0178 FIRST=RNDC18) 

0188 SECOND=RNDC9)+11 

0198 THIRD=RND(9)+21 

0200 PRINT PHRASESCFIRST); 

0210 PRINT PHRASESCSECOND); 

0220 PRINT PHRASESCTHIRD); 

0240 PRINT 

0386 DATA "LoveD","An orangel", 

"HumanityD","A kissD" 

0310 DATA "А dark cloudfi","A goose feather)", 
"A Popsicle" 

0320 DATA "Home cookingD","Cold ріггаП", 

"Rock n” Roll" 

0330 DATA "is charming like[","makes me dream off" 
0349 DATA "is as sticky азП","сап ooze 

likeD", "smells 11 кей“ 

0350 DATA "сап Бе as tough to forget аз", "сап 
hurt likeQ" 

0360 DATA "сап be as cynical а50" ,"таКез а mockery 
ofD" 

0378 DATA “drives me as crazy аз" 

0380 DATA "a sticky lollipop. ","a web of 
intrigue." 

0398 DATA “castor oil.","a chocolate bath.","a 
broken toe." 

П400 DATA "honey and things.","personal 
defeat.","a wet diaper." 

0418 БАТА "strange happenings.","a pennyless 
рчгзе." 


When you finish typing the ргоседиге, type а to return to 
the system mode. Now you can test the program by typing 
either: 


run [ENTER 


run prose [ENTER 
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After trying the procedure, return to the edit mode by typing e 
(ENTER). 


After displaying the procedure’s name, the editor displays Line 
100 preceded by an asterisk. The asterisk lets you know which 
line is the current line (or the line at which the edit pointer is 
located). 


Searching Through a Procedure 

You can examine a procedure in three ways: 
ө Press to display the procedure one line at a time. 
е Skip through the procedure to a particular line. 
е List part or all of the procedure to the screen. 


When you use either of the first two methods, the line you select 
to display becomes your current line. When you use the third 
method, the current line does not change. 


Using (ENTER 


If you are still positioned at Line 100, but want to examine the 
first line of data, Line 300, press 12 times to move down. 


Using the Plus Sign to Move Forward 


Another method of moving to a specific line is to type a plus 
sign followed by the number of lines you need to advance to get 
there. Positioned at Line 100, you can type: 


+12 (ENTER 


Whether you press or use the plus sign, the last line dis- 
played is now your current line. 
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Accessing a Line Using the Line Number 


The third way to move to a particular line is to type the line 
number, followed by (ENTER). For instance, to jump back to Line 
100, type: 


108 
The editor displays Line 100 and makes it your current line. 


Using the Minus Sign to Move Backward 


In the same manner that you move forward in the procedure 
using the plus sign, you can move backward using the minus 
sign, or hyphen. 


Type 300 to return to Line 300. To display Line 240 and 
make it your current line, type: 


- 
To display Line 190 and make it your current line, type: 


-4 (ENTER) 


The Global Symbol 


The BASICO9 editor also makes use of the asterisk as a global 
symbol. For instance, following a command with an asterisk 
causes that command to affect the entire procedure. 


This feature lets you move quickly to the beginning and end of 
the procedure. To return to Line 100, the first line, type: 


-* (ENTER) 


To move to the end of the procedure, past all the numbered lines, 
type: 


++ (ED 
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Using LIST 


The LIST command lets you select one or more lines for display 
on your screen. To see this, make the first line your current line, 
then type: 


1 (ENTER) 


To list one or more lines, type the LIST command followed by the 
number of lines you want displayed. For instance, typing 15 
causes the current line and four others to appear on the 
Screen, as shown in the following sequence of commands and the 
resulting display: 


-* (ЕЛЕН) 
15 (ENTER) 

PROCEDURE Prose 

100 DIM PHRASESC38): STRING 
128 FOR Т=1 TO 30 

138READ PHRASESCT) 

148 NEXT T 

160 PRINT 


You can also use LIST with the BASICO9 global symbol, *. Typ- 
ing an asterisk after the LIST command produces a listing of 
the entire procedure. 


Deleting Lines 


Earlier, the manual showed that you can delete the current line 
by typing d (ENTER). Because this is such a simple process, be 
sure you don't do it by accident. Removing the wrong line, or too 
many lines, is very frustrating in a complex procedure. 


You can also remove a group of lines from a procedure by typing 
d, followed by the number of lines you want to delete. This com- 
mand deletes the current line and specified following lines. 
Again, be careful. 


You can remove all of the lines in a procedure by using the 
global symbol, *. Typing а» erases all procedure text. 
However, the procedure name still resides in the workspace. To 
delete an entire procedure, including the name, use the KILL 
command from the system mode. 


4-6 


The Еди Mode / 4 


If you decide you don't like the nouns used in the DATA lines of 
the Prose procedure, erase all of the DATA lines containing 
nouns (Lines 300-320) and replace them. To do so, make Line 
300 your current line by typing: 


300 
Then type: 


e (ENTER) 


Line 300 disappears and Line 310 takes its place as the current 
line. 


An alternate method of deleting the DATA lines uses only one 
command. To delete Lines 300 through 410, follow the DELETE 
command with the number of lines you want to remove—in this 
case, three: 


өз (EVER) 


Lines 300, 310, and 320 disappear. Line 330 becomes Ше cur- 
rent line. Move back a line to check that the deletions worked. 
The line numbers now skip from 240 to 330. 


Now, you need new nouns for the procedure. Type them in the 
same style as the old lines, such as: 


0300 DATA “А TelephoneD,"A tickleD", 

ПА girlD","A boyD" 

0315 DATA "Ваа luckD","MoneyD","A bad Бей", 
"A lumpy bedQ" 

0326 DATA "A deep thoughtD","SunlightD" 


Save a copy of your procedure to disk by exiting the editor and 
using the SAVE command. Then return to the edit mode and try 
the global delete by typing: 


d+ (ENTER) 


Changing Text 


Using CHANGE tells the editor to search for existing text and 
replace it with new text. CHANGE, like DELETE, can easily 
cause unwanted results if you are not careful. 
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Тһе CHANGE command requires that you use delimiters to зер- 
arate the command from the search text, and to separate the 
search text from the new text. You can select any of the following 
characters for a delimiter, as long as it does not appear in either 
the search text or the new text: 


!#%^&(О-+ = 00" "<>,.?/N| 


Do not use the global symbol (*) for search and replace opera- 
tions. This manual uses a slash (/) as the CHANGE delimiter. 


'The following steps outline the correct use of CHANGE: 


1. Position the editor either before or on the line in which 
you want to make a change. 


2. Type c (for CHANGE). Do not use a preceding space. 
8. Туре а delimiter character, such as /. 


4. Type the characters to be changed, following them with 
the delimiter. 


5. Type the new text, followed by the delimiter. 


6. Press (ENTER). 


Note: It is a good idea to turn on OS-9's upper- and lower- 
case function before attempting change or search opera- 
tions. If you do not, you cannot tell whether the text you 
want to find is upper- or lowercase, or some combination of 
the two. If you type the wrong case, the change or search 
fails. 


In case you didn't notice when typing the procedure, Line 410 
contains an incorrectly spelled word, pennyless. To correct this 
error, type the following: 


c/pennyless/penniless/ 


Immediately, the editor displays Line-410, with pennyless 
changed to penniless. 


Suppose you decide to change the number of sentence combina- 
tions available in Prose. The procedure now has 30 data entries. 
If you add five subjects, five verb phrases, and five objects, the 
procedure also needs other changes (for instance, the DIM state- 
ment in Line 100, the loop size in Line 120, and the RND state- 
ments in Lines 170 through 190). 
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А quick way to change the number 30 іп Lines 100 and 120 is 
to use CHANGE’s global function. To change all occurrences of 
30 to 45, position the editor at Line 100, and type: 


с»/30/45/ (ENTER) 


Use the CHANGE and global CHANGE functions to adjust the 
RND statement values in Lines 170, 180, and 190. 


As well as making changes, you can use the CHANGE command 
to quickly delete portions of text within a line. To do this, type 
delimiters without new text, in this fashion: 


c/Ofeather// 


This command changes the text A goose feather in Line 210 
to A goose. 


Searching for Text 


The editor’s SEARCH command, 8, works in the same manner 
as the CHANGE command. However, SEARCH only requires 
you to specify a block of text to find. 


With SEARCH, you use delimiters to enclose the text to find. To 
test the function, position the editor at the beginning of text by 
typing: 


E 

Now, search for the word phrases, by typing: 
s/phrases/ 

The screen displays: 
+0000 100 DIM phrasesC30) :STRING 


To find all occurrences of phrases throughout the procedure, use 
the global symbol. Type: 


s*/phrases/ 
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Renumbering Lines 


The RENUMBER command, R, reorders all numbered lines and 
all references to numbered lines. You can give RENUMBER 
either one or two parameters. The first is the beginning line 
number. The second is the increment you want. The default 
increment is 10. 


For instance, the Prose procedure line numbers skip from Line 
100 to Line 120. You can renumber the entire procedure by mov- 
ing the editor to Line 100, and then typing: 


r 10 [ENTER 


То change the numbering to increments of 5, beginning at Line 
100, type: 


r 180,5 (ENTER) 


You can also change line numbering in portions of the procedure. 
To do this move the editor to the line where you want the new 
numbering to begin. Then, type in the new parameters. To 
renumber Line 100 as Line 200 and continue with increments of 
10, position the editor at Line 100. Then, type: 


г 200,19 (ENTER) 


If you are not positioned at the first line of a procedure, but you 
wish to renumber all lines, you can use the global symbol to do 
the job. From anywhere іп the procedure, type: 


гж 100,10 [ENTER 


This renumbers the entire procedure іп increments of 10. 


Adding Lines 
There are two ways to add new lines to a procedure. You can: 


е Position the editor one line below the position for the new 
line. Then, type the new line and press (ENTER). When 
inserting lines without numbers, be sure to type a space 
as the first character of the line to tell the editor that 
the following text is a new procedure line. 


е Type a new line, giving it a line number that falls 
between two existing line numbers. 


4-10 


The Кай Mode / 4 


The following procedure adds more choices to Ше Prose program. 
It also adds a feature that lets you press for additional 
output, rather than having to rerun the procedure. Use the 
information presented in this section to help you insert the new 
lines into your program. Because you must change some lines, 
as well as add lines, the following listing includes the entire 
procedure. 


Referring to the original Prose listing, the lines to change are: 
100, 120, 170, 180, and 190. 


The lines to add are: 110, 150, 230, 250, 260, 270, 305, 325, 
872, 374, 376, 420, 430. 


PROCEDURE prose2 

100 DIM PHRASESC45):STRING 

118 DIM RESPONSE:STRING 

120 FOR T*1 TO 45 

130 READ PHRASESCI) 

140 NEXT Т 

150 REPEAT 

168 PRINT 

170 FIRST=RNDC15) 

188 SECDND=RNDC14)+16 

198 THIRD-RND(C142)*31 

200 PRINT PHRASESCFIRST); 

210 PRINT PHRASESCSECOND); 

220 PRINT PHRASESCTHIRD); 

230 PRINT 

240 PRINT 

250 PRINT "DIY Press ENTER for another 
witticism..." 

260 INPUT "ПОП 00г press the SPACEBAR and press 
ENTER to end..." ,RESPONSE 

270 UNTIL RESPONSE»''" 

300 DATA “Lovel","An orangeD" ,"HumanityD", 
"A kissD" 

305 DATA "A computerD","A БоокП","МізегуП" 
310 DATA "A dark с|оцаП", "А goose featherD", 
"A PopsicleD" 

320 DATA "Home cookingD","Cold pizzaD", 
"Rock n^ Во110" 

325 DATA "Snow in JuneD","A glass houseD" 
330 DATA "is charming likeD","makes me dream of" 
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340 DATA "is as sticky asÜ","can ooze likeD", 
"smells likeD' 

358 DATA "can be as tough to forget азП", 

"can hurt 11КеП" о 
368 DATA "can be as cynical аз", 

"makes a mockery о#0" 

370 DATA "drives me as crazy аз" 

372 DATA "can bother me likel","blackens my hopes 
1ікеП" 

374 DATA "сап tickle те 1: кеП", "сап be as funny 
а=0" 

376 DATA "has the effect о?0" 

380 DATA "a sticky lollypop.","a web of 
intrigue." 

390 DATA "castor oil.","a chocolate bath.","a 
broken toe." 

400 БАТА "honey and things.","personal 
defeat.","a wet diaper." 

418 DATA "strange Нарреп! поз.", "а penniless 
purse." 

420 DATA “a slimy зпаКе.", "а bad habit." 

430 DATA "а bad memory сһір.","а good fight.","a Q 
silly friend." 


The Next Step 


Even the best programmers make mistakes—a lot of them. 
BASICO9 provides a way to catch programming mistakes quickly 
and correct them. The next chapter tells you about BASIC09's 
powerful debugging functions. 


Chapter 5 


Тһе Debug Mode 


© Тһе term debug refers to Ше process of finding programming 
errors and correcting them. BASICO9's debugging features 
include symbolic debugging capabilities that let you examine 
variable values and test and manipulate procedures. 


With Debug, you can: 


Examine and change variables. 


Trace procedure execution. Debug lets you execute proce- 
dures and watch them run in slow motion. 


Pause procedure execution. 
Resume procedure execution. 


Set procedure breakpoints that automatically switch to 
the debug mode. 


Select the use of degrees or radians for trigonometric 
functions. 


Perform calculations. 


Call OS-9 system commands. 


Entering the Debug Mode 
You enter Debug: 


Automatically, whenever an error occurs during the exe- 
cution of a procedure (unless you have included an ON 
ERROR GOTO statement to handle the error). 


Automatically, when a procedure executes a PAUSE 
statement. 


When you press (ст (с) during the execution of a 
procedure. 


You can tell when BASICO9 enters the Debug mode by the 
о appearance of the D: prompt. When you see D:, followed by Ше 
cursor, Debug is waiting for your command. 


The following is a reference of all the Debug commands and what 
they accomplish: 
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Command 


Function 


$ 


BREAK 


CONT 


DEG/RAD 
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Calls OS-9's command shell interpreter to run 
a program or an OS-9 command. From the 
Debug prompt, type $, followed by the name of 
the program or command you want to execute. 


Example: $list procedure—one (ENTER 


Sets a breakpoint immediately before the spec- 
ified procedure. Use this command to re-enter 
Debug when one procedure calls another. 


If you have three procedures that call each 


other—Procl, Proc2, and Proc3—and Proc3 
` does not seem to pass the correct values to 


Proc2 when it returns, set a breakpoint at 
Proc2. This causes BASICO9 to enter Debug 
before re-entering Proc2. You can then check 
your variable values. 


You can use one breakpoint for each active pro- 
cedure. Debug removes breakpoints immedi- 
ately after encountering them. 


А procedure must run before you can set a 
breakpoint in it. Use BREAK to stop execution 
when a called procedure returns to a proce- 
dure previously executed. 


Example: BREAK proc? 


Causes procedure execution to continue. 


Example: cont 


Selects either degrees or radians as the unit of 
measurement for trigonometric functions. DEG 
and RAD affect only the current procedure. 


Examples: deg (ENTER 
rad [ENTER 


DIR 


LET 


LIST 


PRINT 


STATE 
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Displays the name, size, and variable storage 
requirements of each procedure in the work- 
space. The current working procedure has an 
asterisk before its name. All packed proce- 
dures have a dash before their names. DIR 
also shows the available memory in the 
workspace. 


If you provide a pathlist, DIR sends its data to 
the specified file. 


Example: dir (ENTER 
dir procedures [ENTER 


Terminates execution of the procedure, closes 
any open paths, and exits to the System mode. 


Example: q 


Assigns a new value to a variable. You must 
specify variable names that are already ini- 
tialized by your program. In the Debug mode, 
you cannot use LET to copy one array to 
another array: as you can in BASIC 
procedures. 


Example: let a := 0 
let fruit :* "oranges" (ENTER) 


Displays a source listing of the suspended pro- 
cedure. The display is formatted and includes 
I-code addresses. An asterisk appears to the 
left of the last executed statement. 


Example: 1151 


Displays the values of variables used in the 
suspended procedure. You cannot introduce 
new variable names in the Debug mode, and 
you cannot display array structures. 


Example: print fruit (ENTER 


Lists the nesting order of active procedures. 
STATE displays the highest-level procedure at 
the bottom of the calling list. The lowest-level 
procedure is the suspended procedure. 


Example: state 
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STEP 


TRON/TROFF 


Causes execution of the suspended procedure 
in specified increments. For example, typing 
STEP 5 executes the equivalent of the 
next five statements. If you enter STEP with- 
out an increment value, the step rate is 1. 


Using STEP with the trace function lets you 
observe the source lines as they execute. 


Because compiled I-code contains actual state- 
ment memory addresses, the top or bottom 
statements of loop structures execute only 
once. For example, in FOR/NEXT loops, FOR 
executes once, and the statement following 
FOR appears to be the top of the loop. 


Turns on or turns off the trace function. Trace 
on (TRON) causes the system to reconstruct 
the compiled code of each statement line into 
source code. Debug displays the source code 
before the statement is executed. If the state- 
ment causes the evaluation of one or more 
expressions, Debug displays each result follow- 
ing the statement. The result is preceded by 
an equal sign. 


The trace function is local to the current pro- 
cedure. If the suspended procedure calls 
another procedure, Debug suspends the trace 
function until control returns to the original 
procedure. However, once you turn on trace for 
a procedure, it continues in effect until you 
turn it off. This means that if you turn trace 
on in a called procedure, and another proce- 
dure subsequently calls it, trace continues to 
display the called procedure’s operations. 


Example: tron (ENTER 
iroff (ENTER 


When Things Go Wrong 


Programming errors show up in two ways. Either your procedure 
produces incorrect results, or it terminates prematurely. 
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Іп the first instance, you сап stop your procedure and enter 
Debug by pressing (сін |6). 


However, sometimes your program executes too quickly to allow 
you to stop it at the appropriate place. In this case, you can use 
the Edit mode to insert а PAUSE command where you wish the 
procedure to stop. PAUSE causes the procedure to halt execution 
and enter the Debug mode. 


Once in Debug, you can use the PRINT command to examine 
the procedure variables. You can use LET to manipulate the 
variable values to determine where the error or errors occur. Per- 
haps you forgot to initialize a variable or forgot to increase a loop 
counter. 


Using the Trace Function 


Sometimes, errors are more difficult to discover. If so, the next 
Step is to use the trace function. To do this, type: 


tron [ENTER 


Now press (ENTER). Each time you press (ENTER), Debug executes 
one line of the procedure. You can see the original source state- 
ment, and if an expression is evaluated, Debug prints the result 
of the expression, preceded by an equal sign. 


In this manner, you can step through the entire procedure, or 
any part of it, examining variable values as you go. 


What About Loops? 


The STEP command is helpful if you find yourself tracing the 
operation of a loop. Once you determine that the loop works cor- 
rectly, you can avoid tedious, step-by-step repetitions by turning 
trace off and using STEP to quickly run through the loop. Then, 
turn trace back on and resume single-step debugging. For 
instance, type: 


troff (ENTER 
step 200 
tron 
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In Multiple Procedures 


Although the trace function is local to a procedure, you can 
pause and turn on the trace function in as many procedures as 
you wish. Trace continues to operate in each procedure until you 
turn it off using TROFF. 


To cause a procedure to halt execution when it is called by 
another procedure, use the BREAK command. 
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о Data Types 


Data, is information on which a computer performs its operations. 
Data is always numeric but, depending on your computer appli- 
cation, it can represent values, symbols, or alphabetic characters. 
This means that the same items of physical data can have very 
different logical meanings, depending on how a program inter- 
prets it. 


For instance, 65 can represent: 
e A numeric value to be used in a calculation. 
е The location of a memory address. 
е The offset of a memory location. 
е The two character symbols 6 and 5. 


е The character A in the ASCII table. ASCII is the abbre- 
© viation for the American Standard Code Юг Information 
Interchange. 


Because of the differences in how BASICO9 uses data, the sys- 
tem lets you define five types of data. For instance, there are 
three ways to represent numbers. Each has its own advantages 
and disadvantages. The decision to use one way or another 
depends on the specific program you are developing. The five 
BASICOO data types are byte, integer, real, string, and Boolean. 


In addition to the preceding data types, there are complex data 
types you can define. The manual discusses complex data struc- 
tures at the end of this chapter. 


The byte, integer, and real data types represent numbers. 


The string data type represents character data (alphabet, punc- 

tuation, numeric characters, and other symbols) The default 

length of strings is 32 characters. Using the DIM statement, you 
o can specify strings of both longer and shorter lengths. 


The Boolean data type represents the logical value, TRUE or 
FALSE. 
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You can create arrays (lists) of any of these data types with one, 
two, or three dimensions. The following table shows the data 
types and their characteristics: 


Memory 

Type — — Allowable Values — — Requirements | 
BYTE Whole numbers (0 to 255) One byte 
INTEGER Whole numbers (-32768 Two bytes 

to 32767) 
REAL Floating point Five bytes 

( + 1*10^ +38) 
STRING Letters, digits, One byte per 

punctuation character 
BOOLEAN True or false One byte 


Real numbers appear to be the most versatile. They have the 
greatest range and are floating point. However, arithmetic opera- 
tions involving real numbers execute much more slowly than 
those involving integer or byte values. Real numbers also take 
up considerably more memory storage space than the other two 
numeric data types. 


Arithmetic involving byte values is not appreciably faster than 
arithmetic involving integers, but byte data conserves memory. 


If you do not specify the type of variable (a symbolic name 
for a value) in a DIM statement, BASIC09 assumes the vari- 
able is real. 


The Byte Data Type 


Byte variables hold unsigned eight-bit data (integers in the 
range 0 through 255). Using byte values in computations, 
ВА81С09 converts the byte values to 16-bit integer values. If you 
store an integer value that is too large for the byte range, 
ВА51С09 stores only the least-significant eight bits (a value of 
255 or less), and does not return an error. 
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The Integer Data Type 


Integer variables require two bytes (16 bits) of storage. They can 
fall in the range -32768 to 32767. If a calculation involves both 
integer values and real values, BASICO9 presents the result of 
the calculation as a real number. 


You can also use hexadecimal values in integer data. To do so, 
precede the value with the dollar sign ($). For instance, to repre- 
sent the decimal value 199 as hexadecimal, type $С7. The hexa- 
decimal value range is $0000 through $FFFF. 


If you give an integer variable a value that is outside the integer 
range (greater than 32767 or less than -32768), BASICO9 does 
not produce an error. Instead it wraps around the value range. 
For instance, the calculation 32767 + 1 produces a result of 
-32768. 


This means that numeric comparisons made on values in the 
range 32768 through 65535 deal with negative numbers. You 
should limit such comparisons to tests for equality or non- 
equality. Functions such as LAND, LNOT, LOR, and LXOR use 
integer values but produce results on a non-numeric, bit-by-bit, 
basis. 


Division of an integer by another integer yields an integer. 
BASICO9 discards any remainder. 


The Real Data Type 


If you do not assign а data type to a variable, BASICO9 assumes 
the variable is real. However, programs are easier to understand 
if you define all variable types. 


BASICOO9 stores as real values any constants that have decimal 
points. If a constant does not have a decimal point, BASICO9 
Stores it as an integer. 


BASICO9 requires five consecutive memory bytes to store real 
numbers. The first byte is the exponent, in binary two's comple- 
ment. The next four bytes are the binary sign and magnitude of 
the mantissa. The mantissa is in the first 31 bits; the sign of 
the mantissa is in the last (least-significant) bit of the last byte. 
The following illustration shows the memory storage of a real 
number: 
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Internal Representation of Real Numbers 


byte: 0 1 2 3 4 


The exponent covers the range 2.938785877х10-39 (2-128) 
through 1.701411835х1038 (2127) as powers of 2. Operations that 
result in values out of the representation range cause an over- 
flow or underflow error. You can handle such errors using the ON 
ERROR command. 


The mantissa covers the range 0.5 through .9999999995 in steps 
of 2-31. This means that real numbers can represent values 
.0000000005 apart. BASICO9 rounds operation values that fall 
between these points to the nearest point. 


Because floating point arithmetic is inherently inexact, a 
sequence of operations can produce a cumulative error. Proper 
rounding, as implemented in BASICO9, reduces the effect of this 
problem, but cannot eliminate it. When using real quantities in 
comparisons, be sure your computations can produce the exact 
value you desire. 


String Variables 


A string is a variable-length sequence of ASCII values. The 
length can vary from 0, a null string, to the capacity of the 
memory available to BASICO9. 


You can define a string variable either explicitly, using the DIM 
statement, or implicitly by appending the dollar sign ($) to the 
variable identifier (variable name). For example, title$ implicitly 
identifies a string variable. 


Unless you specify otherwise, BASICO9 assigns a maximum 
string length of 32 characters. Using the DIM statement, you 
can specify a maximum length either less than or greater than 
32. To conserve memory, use DIM to assign only the maximum 
length you need for any string variable. 


The beginning of a string is always Character 1. The BASE 
statement, which sets numeric variable base numbers as either 0 
or 1, does not affect string variables. 
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If an operation results in a string too long to fit in the assigned 
maximum storage space, the system truncates the string on the 
right. It does not produce an error. 


String storage is fixed at the dimensioned length. The sequence 
of actual string byte values is terminated by the value of zero, or 
by the maximum length allotted to the string. Any unused stor- 
age after the zero byte allows the stored string to expand and 
contract within its assigned length. 


The following example shows the internal storage of a variable 
dimensioned as string 161 and assigned the value “SAM”. 
Note that Byte 4 contains the string terminator 00. The string 
does not use bytes following 00. 


5 А м 00 
byte: 1 2 3 4 5 6 


If you assign the value “ROBERT” to the variable, BASICO9 does 
not need to terminate the string with 00 because the string is 


full: 
во {ве в | г | 
Бубе: 1 2 8 4 5 6 


Тһе way BASIC09 handles string storage is important when you 
write programs. If you do not specify a length for strings you 
define, the system uses the default length 32. As you can see, 
this wastes computer memory if you store strings of only four or 
five characters. 


The Boolean Type 


А Boolean operation always returns either the character string 
“TRUE” or “FALSE”. You cannot use the Boolean data type for 
numeric computation—only for comparison logic. 


Do not confuse the Boolean operations AND, OR, XOR, and NOT 
(which operate on the Boolean values TRUE and FALSE) with 
the logical functions LAND, LOR, LXOR, and LNOT (which use 
integer values to produce numeric results on a bit-by-bit basis). 
An attempt to store a non-Boolean value in a Boolean variable, 
causes an error. 
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Automatic Туре Conversion 


When an operation mixes numeric data types (byte, integer, or 
real values), BASIC09 automatically and temporarily converts 
the values to the type necessary to retain accuracy. This conver- 
sion lets you use numeric quantities of mixed types in most 
calculations. 


The system returns a type-mismatch error when an expression 
includes types that cannot legally mix. These errors are reported 
by the second compiler pass, which occurs automatically when 
you exit the edit mode. 


Because type conversion takes additional execution time, you can 
speed calculations by using values of a single type. 


Constants 


Constants are values in a program that do not change. They can 
use any of the five data types. The following are examples of con- 
stants in a procedure: 


HOME$="Fort Worth" 
VALUE$="$25,0080 
VALUE=25 
PAYMENT=99.99 
ANSWER="TRUE" 
MEMORY=$ØCFF 

PRINT "Тһе Епа" 


Numeric constants are either integers or real numbers. If a 
numeric constant includes a decimal point or uses the “E format” 
exponential form, it causes ВА51С09 to store the number in the 
real format, even if it could store the number in integer or byte 
format. 


You can use this feature to force a real format. For instance, to 
make the number 12 a real number, type it as 12.0. You might 
want to force real values in this way when all other values in an 
expression are real so that BASIC09 does not have to до a time- 
consuming type conversion at run time. 
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BASICO9 also stores as real numbers any numbers that do not 
have decimal points but that are too large to store as integers. 
Here are some examples of legal real constants: 


1.0 9.8433218 -.01 
-999.000099 100000000 5644.34532 
1.95E + 12 -99999.9E-33 


BASICO9 treats numbers that do not have a decimal point and 
are in the range -32768 through +32767 as integers. You must 
always precede bexadecimal numbers with a dollar sign. 


Following are examples of legal integer constants: 


12 -3000 55 
$20 ЗЕЕ 509 
0 -12 -32768 


String Constants 


A string constant consists of a sequence of characters enclosed in 
double quotation marks, such as: 


“The End" 


To place a string constant in a string type variable, use the 
equal symbol in this manner: 


TITLE$ = "Masters Of Magic" 


То include double quotation marks within a string, use two sets 
of double quotation marks, like this: 


"Ап ""older man is wiser." 


А string can contain characters that have ASCII values in Ше 
range 0 through 255. 


Variables 


Та BASIC09, a variable is local to Ше procedure in which it is 
defined. A variable defined in one procedure has no meaning in 
another procedure unless you use the RUN and PARAM state- 
ments to pass the variable when you call the other procedure. 


The local nature of variables lets you use the same variable 
name in more than one procedure and, unless you specify other- 
wise, have the variables operate independently of each other. 
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You сап assign variables using either Ше LET statement with 
the assign symbol (=), or by using the assign symbol alone. For 
instance, both the following command lines are legal: 


LET РАУМЕНТ< 44.59 
РАУМЕНТ< 44.58 


When you call а procedure, BASICO9 allocates storage for the 
procedure's variables. It is not possible to force a variable to 
occupy an absolute address in memory. When you exit a proce- 
dure, the system returns the storage allotted for variables, and 
you lose the stored values. 


If you write a procedure to call itself (a recursive procedure), the 
call creates separate storage space for variables. 


Note: Unlike other BASICS, BASICO9 does not automati- 
cally initialize variables by setting them to zero. When you 
execute a procedure, all variables, arrays, and structures 
have random values. Your procedure must initialize the 
variables you specify to the values you require. 


Passing Variables 


When one procedure passes variable values to another procedure, 
BASICO9 refers to the passed variables as parameters. You can 
pass variables either by reference or by value. 


BASICOO9 does not protect variables passed by reference. There- 
fore, the called procedure can change the values and return the 
new values. BASICO9 does protect variables passed by value, so, 
the called program cannot change them. 


То pass a parameter by reference, enclose the name of the vari- 
able in parentheses as part of the RUN statement in this 
manner: 


RUN RANDOMC1@) passes the value 10 to a procedure 
called Random 


The system evaluates the storage address of each passed vari- 
able, and sends the variable to the called procedure. The called 
procedure associates the storage addresses with the names in its 
local PARAM statement. It then uses the storage area as though 
it had created it locally. This means it can change the value of 
the parameter before returning it to the calling procedure. 
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To pass parameters by value, write the value to be passed as an 
expression. BASICO9 evaluates the expression at the time of the 
call. To use a variable in an expression without changing its 
value, use null constants, such as 0 for a number or "" for a 
string, in this manner: 


RUN ADDCOLUMN(x*) passes the value of x by 
value 

RUN TRANSLATE(Cw$*"") passes the contents of w$ by 
value 


To pass parameters by value, BASICO9 creates a temporary vari- 
able. It places the result of the expression in the temporary vari- 
able and sends the address to the called procedure. This means 
that the value given to the called procedure is a copy of the 
result of the expression, and the called procedure cannot change 
the original value. 


The results of expressions containing numeric constants are 
either integer or real values; there are no byte constants. To 
send byte-type variables to a procedure, pass the values by refer- 
ence. Therefore, if а RUN statement evaluates an integer as a 
parameter and sends it to a byte-type variable, the byte variable 
uses only the high-order byte of the two-byte integer. 


Arrays 


An array is a group of related data values stored consecutively 
in memory. The system knows the entire group by a variable 
name. Each data value is an element. You use a subscript to refer 
to any element of the array. For example, an array named Graf 
might contain five elements referred to as: 


GRAFC1) GRAFC2) GRAFC3) СВАЕ Са? СВАЕ (5) 


You сап use each of these elements to store а different value, 
such as: 


GRAFC1) = 25 
GRAFC2) = 47 
GRAFC3) = 39 
GRAFC4) = 18 
GRAFCS) = 50 
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Note: Normally, array elements start with 1 in BASIC09. 
However, you can use the BASE command to cause array 
elements to begin at 0. © 


The previous example illustrates а single-dimensioned array. The 
elements are arranged in one row and only one subscript is used 
for each element. 


The following procedure lets you type values for a GRAF array, 
and displays the results in a simple graph. 


PROCEDURE GRAF 

ODIM GRAFCS):REAL 

DSHELL "DISPLAY 8C" 

DFOR T=1 TO 5 

OPRINT "Value for Item 4"; T; "0"; 
UINPUT GRAFCI) 

ПМЕХТ Т 

OPRINT 

OPRINT 

DPRINT "This is how your graph stacks up..." 
[IPRINT 


OFOR Т=1 TO 5 о 
DPRINT "Item 4"; T; "D"; 


DFOR U=1 TO GRAFCT) 
OPRINT CHR$C79)2; 
DNEXT U 

OPRINT 

ПМЕХТ Т 

ÜPRINT 

DEND 


This program uses a single dimension array—in effect, a list. 


You can also create arrays with more than one dimension — 
more than one element for each row. You might use a two-dimen- 
sioned array in a program to store names and addresses. Instead 
of creating separate arrays for the name, address, and zip code, 
you could set up one array with two dimensions. 


6-10 


Data апа Variables / 6 


The following program, used to enter the names of a company’s 
employees, shows how this might be done. See the second line for 
the DIM syntax. When you run the procedure, it asks you for a 
name, address, and zip code for each of 10 employees. After you 
type the information for all the entries, the procedure displays 
the information on the screen. 


PROCEDURE Names 
Прим NAMEC18,3):STRING 
USHELL "DISPLAY ВС" 


ПВА5Е 0 
OFOR T=0 TO 9 
OPRINT "Type Employee Name No."; T; ": "; 


DINPUT МАМЕСТ, В) 

OPRINT "Type Employee Address Но.“; T; ": "; 
О: НРИТ NAMECT,1) 

OPRINT "Type Employee Zip Code No."; T; ": "; 
DINPUT NAMECT,2) 

ОМЕХТ T 

ÜSHELL "DISPLAY Qc" 

OPRINT "And the names are..." 

OPRINT 

DFOR Т=@ TO 9 

OPRINT NAMECT, 8); "0"; NAMECT,12; "D"; NAMECT,2) 
ПМЕХТ T 

DEND 


Тһе DIM statement reserves space in memory for a string аттау 
named Name, with two dimensions. Аз you enter data, the Name 
field is stored in Натесд,0), Нате(1,й?, Name(2,9), and so on. 
The Address field is stored in Нате(й,1), Name(1,1), 
Name(2,1), and so on. The Zip field is stored in Нате(й,2), 
Name(1,2), NameC2,2), and so on. This continues until you fill 
the grid, 10 entries with three items each. 


You can also create arrays with three dimensions. The following 
program adds one more dimension that keeps track of each 
employee's company. It dimensions Name$ as Name$(2,10,3). 
The first dimension contains either 0 or 1 to indicate to which 
company the employee belongs. 
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PROCEDURE names2 

ODIM NAME$C€2,18,3):STRING 

DSHELL “DISPLAY 8c" 

OBASE 0 

DFOR X=0 TO 1 

ОРЕТНТ 

DPRINT 

DFOR T=0 TO 9 

DPRINT 

DIF X=@ THEN 

OPRINT "Type а Wiggleworth Company employee 
пате...“ 

DELSE 

OPRINT "Type а Putforth Company employee name... 
DENDIF 

OPRINT "Type Name No."; T; " "5 

DINPUT NAMESCX,T,0) 

OPRINT "Type Address No."; T; ": ''; 

DINPUT NAMESCX,T, 1) 

OPRINT "Type Zip Code No."; T; ": "; 

ОІМРОТ NAMESCX,T,2) 

ONEXT T 

DNEXT X 

ÜSHELL "DISPLAY ВС" 

OPRINT "The Wiggleworth employees are..." 
OPRINT 

ПХ-й 

ОРОВ T=0 TO 9 

OPRINT NAMESCX,T,02; "D"; NAME$CX,T,1); "D"; 
NAMESCX,T,2) 

DNEXT T 

OPRINT 

OPRINT "The Putforth Company employees are... 
OPRINT 

Dx=1 

DFOR T=0 ТО 9 

OPRINT NAMESCX,T,02; "0"; NAMESCX,T,10; "D"; 
NAME$CX,T,2) 

ПМЕХТ Т 

DEND 
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The easiest way to understand three dimensional arrays is to 
consider the first dimension as a page. In other words, if the first 
dimension in the string is 0, the employee is on the Wiggleworth 
Company’s page. If the first dimension in the string is 1, the 
employee is on the Putforth Company’s page. 


Complex Data Types 


In addition to the five standard data types, you can create your 
own data types. Using the TYPE command, you can define a 
new data type as a vector (a single-dimensioned array) of any 
previously defined type. 


For example, in the previous program, the Name variable can 
contain only one type of data, the string type. However, using 
the TYPE command you can create a variable that accepts sev- 
eral data types. 


Suppose you create an employee list procedure that uses the fol- 
lowing variables, of the following size and types: 


Name Length Contents Type 
Name 25 employee name string 
Street 20 street address string 
City 10 city of address string 
Zip — address zip code integer 
Sex — false = male, true = female Boolean 
Age — employee age byte 


You can combine all these variables into one complex data type. 
To do so, dimension the variables within a TYPE command line, 
like this: 


TYPE EMPLOYEEsNAME:STRINGLI251; STREET:STRING( 2013 
CITY:STRINGL101; ZIP:REAL; SEX:BOOLEAN; AGE:BYTE 


This creates a new BASICO9 type, called Employee. Employee 
requires its variables to have six fields of the name, size, and 
type shown in the previous chart. 


Once you create the new data type, you can define variables to 
use it. For instance, the following program line defines Worker as 
type employee, with 10 elements in the array: 


ODIM WORKERCT182:EMPLOYEE 
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To put the employee data type to work, collect your data with 
INPUT commands. Then, store the data into the new Worker 
array. The following program demonstrates how you might do 
this: © 


PROCEDURE worker 

OREM Dimension variables for input 

ODIM ММ:5ТЕІМбІ251 

ODIM 5Т:5ТРІМ6І201 

ODIM CTY:STRING(16) 

ODIM ZP:REAL 

ODIM 5Х: ВОО! ЕАМ 

DDIM АС:ВҮТЕ 

ОКЕМ Create new Туре and array using new 
type 

ПТҮРЕ EMPLOYEEsNAME:STRINGI251; STREET:STRING[201; 
CITY:STRING(1@ 1; ZIP:REAL; SEX:BOOLEAN; AGE:BYTE 
ODIM WORKERC19):EMPLOYEE 

OREM 

OFOR T=1 TO 18 

DINPUT "Нате:0", НМ 

DINPUT "Street :0",ST о 
DINPUT "City:D",CTY 

ОТКРИТ "2їр:П",2Р 

DINPUT "Sex:D",SX 

DINPUT "Age:0",AG 

OREM Store input in the Worker array using 
field names 

QWORKERCT).NAME=NM 

QWORKERCT).STREET=ST 

QWORKERCT).CITY=CTY 

QWORKERCT).Z2IP=2P 

QWORKERCT).SEX=SX 

QWORKERCT).AGE=AG 

OPRINT 

ОРРІМТ w + w w w * ж * 9* жож * * жож жожо * * x" 
DPRINT 

DNEXT T 

DSHELL “DISPLAY C0OC)" 

DPRINT "The names in your files now are..." 
OPRINT Q 
OFOR T=1 TO 10 

OPRINT WORKERCT).NAME 

OPRINT WORKERCT).STREET 

OPRINT WORKERCT).CITY 
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OPRINT HORKERCTO.ZIP 


OIF WORKERCT).SEX=TRUE 

ОТНЕМ PRINT "Female" 

OELSE 

OPRINT "Male" 

DENDIF 

OPRINT WORKERCT).AGE 

ПРЕТНТ 

ОРРІМТ "ж + ж ж * ж x w * * жоя 9* * ?* * * * x x" 
DPRINT 

DNEXT T 


Note that the Sex field is defined as Boolean. This means that 
you can respond only in two ways, TRUE or FALSE. The method 
of input requires only one byte of storage. To use this data you 
need to handle it so TRUE and FALSE indicate female and male. 


Complex data types can contain more than one field. Each field 
can be of any data type. You reference the fields of a complex 
data type by typing the variable name, its array index, a period 
(), and the field name. The following lines, from the Worker pro- 
cedure, show how BASICO9 stores the data from the input lines 
into the Worker variable: 


WORKERCT).NAME=NM 
WORKERCT).STREET=ST 
WORKERCT).CITY=CTY 
WORKERCT).Z1P=2P 
WORKERCT).SEX=SX 
WORKERCT).AGE=AG 


These lines store the values in the variables NM, ST, CTY, ZP, 
SX, and AG into the NAME, STREET, CITY, ZIP, SEX, and 
AGE fields of the Worker variable. This operation is within a 
FOR/NEXT loop that uses T as a counter. In the procedure, T 
can refer to a value in the range 1 to 10. 


The procedure uses the same type of operation to extract the 
data from the complex data type variable: 
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PRINT WORKERCT).NAME 

PRINT WORKERCT).STREET 

PRINT WORKERCT).CITY 

PRINT HORKERCTO.ZIP о 
IF WORKERCT).SEX=TRUE THEN PRINT "Female" 

ELSE PRINT "Male" 

ENDIF 

PRINT WORKERCT).AGE 


Using the same methods, you can create complex data types that 
combine other complex data types and standard data types. 


The elements of a complex structure can be copied to another 
similar structure. Using a single assignment operator, you can 
write an entire structure to, or read an entire structure from, 
mass storage as a single entity. For example: 


PUT #2, WORKERCT) 


Because the system defines the elements of complex-type storage 
during compilation, it need not do so during runtime. This 
means that BASICOO9 can reference complex structure faster than 
it can reference arrays. о 
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Expressions, Operators, and 
Functions 


Manipulating Data 


BASIC09 uses expressions to manipulate data. (Expressions are 
pieces of data connected by operators.) 


An operator is a symbol or a word that signifies some action to 
be performed on the specified data. Each data item is a value. 


Expressions 


When an expression is evaluated, the result is a value of some 
data type (real, integer, string, byte, or Boolean). 


An expression might look like this: 


First First Second Second 
Value Operator Value Operator Result 


6 + 5 = 11 
or like this: 


First First Second Second 
Value Operator Value Operator Result 


“Seaside” + “Villa” = Seaside 
Villa 


When ВА5ІС09 evaluates an expression, it copies each value onto 
an expression stack. Functions and operators take their input 
values from this stack and return their results to it. Many 
expressions result in assignments, as do the examples shown. 
The BASICO9 makes the resulting assignment only after it com- 
putes the entire expression. This lets you use the variable that is 
being modified as one of the values in the expression, such as in 
this example: 


X=X+1 
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ТҺе result of an expression is always one of the five BASIC09 
data types. However, you can often mix data types within an 
expression and, in some cases, the result of an expression is of a 
different, data type than any of the values in the expression. 
Such is the case if you use Ше less-than symbol (<), in this 
manner: 


24 < 100 


'The less-than operator compares two integer values. The result 
of the comparison is Boolean; in this case, the value is TRUE. 


Type Conversion 


Because BASIC09 performs automatic type conversion of values, 
you can mix any of the three numeric data types in an expres- 
sion. When you mix numeric data types, the result is always of 
the same type as the value having the largest representation, in 
this order: геа1 < integer < byte. 


You can use any numeric type in an expression that produces a 
rea] number. If you want an expression to produce a byte or inte- 
ger type value, the result must be small enough to fit the 
desired type. 


Operators 


BASICOO9 has operators to deal with all types of data. Each oper- 
ator, except NOT and negation (unary -), takes two values or 
operands, and performs an operation to produce a result. NOT 
can accept only one value. The following table lists the operators 
available and the types of data they accept and produce. 


Because the same operators function on the three types of 
numeric data (byte, integer, and real), these types are referred to 
by the operand type “numeric.” 
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ВА51С09 Expression Operators 


Operand Result 


Operator — — Function — — Туе Туре _ 
_ Negation numeric numeric 
“or ** Exponentiation numeric numeric 
* Multiplication numeric numeric 
/ Division numeric numeric 
+ Addition numeric numeric 
- Subtraction numeric numeric 
NOT Logical Negation Boolean Boolean 
AND Logical AND Boolean Boolean 
OR Logical OR Boolean Boolean 
XOR Logical Exclusive OR Boolean Boolean 
+ Concatenation string string 
= Equal to all types Boolean 
<> ог >< Not equal to all types Boolean 
< Less than numeric, stringt Boolean 
<= or =< Less than or equal numeric, stringt Boolean 
> Greater than numeric, stringt Boolean 


>= or => Greater than or equal numeric, string? Boolean 


+ When comparing strings, BASICO9 uses the ASCII values of 
characters as the basis for comparison. Therefore, 0 < 1, 9 < А, 
А <В, À < b, b < z, and so on. 


Arithmetic Operators 


Arithmetic operators perform operations on numeric data. There- 
fore, both operands in the expression must be numeric. The fol- 
lowing table lists the arithmetic operators. 


Negation The single dash negates a number’s sign: 
-10 is negative 10. 


Exponentiation | Use a caret (^) or two asterisks (жж) to raise 
a number to a power: 2°3 is 8 (2 x 2 x 2). 
Similarly, 2##3 is 8. 


Multiplication A single asterisk causes multiplication: 
2 * 3 is 6. 
Division A slash causes division: 6 / 2 is 3. 
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Addition 'The plus sign causes addition: 3 + 3 is 6. 


Subtraction А dash causes subtraction: 6 - 3 is 2. 


Hierarchy of Operators 


BASIC09 uses the standard hierarchy of operations when calcu- 
lating expressions with multiple operators. This means that 
BASICO9 has an order in which it performs calculations involv- 
ing more than one operator. 


The following BASIC09 operators are listed im order of 
precedence: 


МОТ - (negate) 
ж жж 


ж / 

+ = 

> < <> = >= <= 
АМ” 

OR XOR 


Also, BASIC09: 


е Performs operations enclosed in parentheses before oper- 
ations not in parentheses. 


е Performs the leftmost operations first when two or more 
operations are of equal precedence. 


You can use parentheses to override this standard precedence. 
For example: 


г2 + 1 385 
but 
са + 1) »з = 9 


The following examples show ВАЗ1С09 expressions on Ше left, 
and the way BASICO9 evaluates them on the right. You can 
enter the expressions in either form, but the decompiler gener- 
ates the simpler form, shown on the left. 
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BASICO9 Equivalent 
Representation Form 
a=b+c**2/d a=b + ((c**2)/d) 
a=b>c АКО d>e ОК a=((b>c) AND (d>e)) 
с=е OR (c=e) 
a=(b+c+d)/e a=((b+c)+d)/e 
а= b**c**d/e a = (bss(c**d))/e 
a= -(b)«2 a=(-b)**2 
a=b=c a=(b=c) 


Relational Operators 


Relational operators make logical comparisons of any type of data 
and return a result of either TRUE or FALSE. An explanation of 
the relational operators follows. АП relational operators have 
equal precedence. 


< 
> 
<> or >< 
<= or =< 
>= or => 


Equal. Returns TRUE if both operands are 
equal, or FALSE if they are not equal. 


Less than: Returns ТЕПЕ if the first operand is 
less than the second, or FALSE if is not. 


Greater than: Returns ТЕПЕ if the first operand 
is greater than the second, or FALSE if it is not. 


Unequal: Returns ТЕПЕ if the operands are not 
equal or FALSE if they are. 


Less than or equal to: Returns TRUE if the first 
operand is less than or equal to the second 


operand. Otherwise, the operation returns 
FALSE. 


Greater than or equal to: Returns TRUE if the 
first operand is greater than or equal to the 
second. Otherwise, the operation returns FALSE. 
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You normally use relational operators in IF/THEN statements. 
For example, if your procedure has two numeric variables, Pay- 
ments and Income, you might include command lines like this: 


IF PAYMENTS > INCOME THEN 
PRINT "You*re Broke!" 
ENDIF 


When you combine arithmetic and relational operators in the 
same expression, BASICO9 evaluates the arithmetic operations 
first. For example: 


IF ХжҮ/2 <= 14 THEN 
PRINT "Average Score is "; X«Y/2 
ENDIF 


BASICO9 performs the arithmetic operation x*y/2, then compares 
the result with the value 14. 


When you use relational operators with strings, BASICO9 com- 
pares the strings characier by character. When it finds two char- 
acters that do not match, it checks to see which character has 
the lower ASCII code value. The string containing the character 
with the lower value comes first. 


Consider this example: 
PRINT "hunt" » "hung" 


BASICO9 compares each character in each string. Because the 
first three characters are the same, the result of the operation is 
based on the comparison of t and д. Because t (ASCII value = 
116) is "greater than" g (ASCII value = 103), the command 
prints TRUE. 


String Operators 


The string operator is the plus sign (--). This symbol appends 
one string to another. All operands must be strings, and the 
resulting value is one string. Examine, for example, the follow- 
ing line, which appends three strings: 


PRINT "My friends are " * "Jack and " * "Jill." 


It prints: Му friends are Jack and Jill. 
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Logical Operators 


The logical, or Boolean, operators make logical comparisons of 
Boolean values. The following table describes the results yielded 
by each logical operator given the specified TRUE/FALSE values: 


Meaning of First Second 
Operator Operation Operand Operand Result 
NOT The result is the opposite of TRUE FALSE 
the operand. FALSE TRUE 
AND When both values are TRUE, TRUE TRUE TRUE 
the result is TRUE. TRUE FALSE FALSE 
Otherwise, the result is FALSE TRUE FALSE 
FALSE. FALSE FALSE FALSE 
OR When both values are TRUE TRUE TRUE 


FALSE, the result is FALSE. TRUE FALSE TRUE 
Otherwise, the result is FALSE TRUE TRUE 


TRUE. FALSE FALSE FALSE 
XOR When only one of the values TRUE TRUE FALSE 
is TRUE, the result is TRUE FALSE TRUE 
TRUE. Otherwise the result FALSE TRUE TRUE 
is FALSE. FALSE FALSE FALSE 


Use logical operators in IF/THEN statements such as: 


IF PAYMENTS < INCOME AND INCOME+SAVINGS > 
PAYMENTS THEN 

PRINT "You’ll have to use your savings to get 
out of this mess." 
ENDIF 


Functions 


Functions are operation sequences the system performs on data. 
In a statement, BASICO9 performs functions first. Chapter 11, 
*Command Reference," describes the following functions. 
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Functions returning results of type real 


SIN Calculates the trigonometric sine of a number. © 

COS Calculates the trigonometric cosine of a number. 

TAN Calculates the trigonometric tangent of a number. 

ASN Calculates the trigonometric arcsine of a number. 

ACS Calculates the trigonometric arccosine of a number. 

ATN Calculates the trigonometric arctangent of a 
number. 

LOG Calculates the natural logarithm (base e) of a 
number. 

LOG10 Calculates the logarithm (base 10) of a number. 

EXP Calculates e (271828183) raised to the specified 


positive power. 


FLOAT Converts byte or integer type numbers to real 


numbers. о 


ІМТ Calculates the largest whole number less than ог 
equal to the specified number. 

PI Represents the constant 3.14159265. 

SQR Calculates the square root of a positive number. 

SQRT Calculates the square root of a positive number. Its 


function is identical to SQR. 


RND Returns a random number. 


7-8 


Expressions, Operators, and Functions | 7 


Functions returning results of any numeric type 


The resulting type depends on the input type. 


ABS 
SGN 


SQ 
VAL 


Calculates the absolute value of a number. 


Returns a value to indicate the sign of the specified 
number (-1 if the number is less than 0, 0 if the 
number is 0, or 1 if the number is greater than 0). 


Calculates the square of a number. 


Converts a string to a numeric value. 


Functions returning results of type integer or type byte 


FIX 


MOD 


ADDR 


SIZE 


ERR 
PEEK 


POS 


ASC 


LEN 
SUBSTR 


Rounds a real number and converts it to an 
integer. 


Calculates the modulus (remainder) of two 
numbers. 


Returns the absolute memory address of a 
variable, an array, or a structure. 


Returns (in bytes) the storage size of a variable, 
an array, or a structure. 


Returns the error code of the most recent error. 


Returns the byte value at a specified memory 
address. 


Returns the current character position of the 
print buffer. 


Returns the numeric value (ASCII code) of a 
string character. 


Returns the length of a string. 


Returns the starting position of the specified 
substring within a string, or returns 0 if it 
cannot find the substring. 
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Functions performing bit-by-bit logical operations on inte- 
ger or byte data and returning integer results. Do not con- 
fuse these functions with Boolean type operators. 


LAND Caleulates the logical AND of two values. 

LOR Calculates the logical OR of two values. 

LXOR Calculates the logical EXCLUSIVE OR of two 
values. 

LNOT Calculates the logical NOT of a value. 


Functions returning a result of type string 


CHR$ Returns the character having a specified АЗСП 
value. 

DATES Returns the system's current date and time. 

LEFT$ Returns the specified number of characters 


beginning at the leftmost character of the 
specified string. 


- RIGHTS Returns the specified number of characters 
beginning at the rightmost character of the 
specified string and counting backward. 


MID$ Returns the specified number of characters 
starting at the specified position in a string. 

STR$ Converts numeric type data to string type. 

TRIM$ Removes trailing spaces from the specified 
string. 


Functions returning Boolean values 


TRUE Always returns TRUE. 
FALSE Always returns FALSE. 
EOF Tests for the end of a disk file. Returns TRUE 


when the end of the file occurs. 
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Disk Files 


When you tell OS-9 or BASIC09 to store (save) data on a disk, it 
stores the data in a logical block called a file. The term logical 
means that, although the system might store portions of a file’s 
data in several different disk locations, it keeps track of every 
location and treats the scattered data as though it occupied a 
single block. It does this automatically and you never need to 
worry about how the data is stored. File data can be binary 
data, textual data (ASCII characters), or any other useful 
information. 


Because OS-9 handles all hardware input/output devices (disk 
drives, printers, terminals, and so on) in the same manner, you 
can send data to any of these devices in the same way. This 
means you can send the same information to several devices by 
changing the path the data follows. For example, you can test a 
procedure that communicates with a terminal by transferring 
data to and from a disk drive. 


BASICO9 normally works with two types of files—sequential 
files and random access files. The following chart shows file- 
access options, their purposes, and the keywords with which to 
use them: 


Types of Access for Files 


Access Function Use with 

Type 

DIR Opens a directory file for reading. OPEN 
Use only with READ. 

EXEC Specifies that the file to open or OPEN 


create is in the execution directory, CREATE 
rather than the data directory. 


READ Lets you read data from the OPEN 
specified file or device. CREATE 

WRITE Lets you write data to the specified OPEN 
file or device. CREATE 


UPDATE Lets you read data from and write OPEN 
data to the specified file or device. CREATE 


Ne 
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Sequential Files 


Sequential files send or receive (WRITE or READ) textual data 
in order, the second item following the first, and so on. You can 
access sequential data only in the same order as you originally 
stored it. To read from or write to a particular section of a file, 
you must first read through all the preceding data in the file, 
starting from the beginning. 


BASICO9 stores sequential file data as ASCII characters. Each 
block of data is separated by a delimiter consisting of a carriage- 
return character (ASCII Character 13). Because BASICO9 uses 
this delimiter to determine the end of a record, sequential files 
can contain records of varying length. 


Use the WRITE and READ commands to store and retrieve data 
in sequential files. A WRITE command causes BASIC09 to 
transfer specified data to a specified file, ending the data with a 
carriage return. A READ command causes BASICO9 to load 
from the specified file the next block of data, stopping when it 
reaches a carriage return. 


Sequential File Creation, Storage, and Retrieval 


BASICO9 uses the CREATE command to establish both sequen- 
tial and random access files. A CREATE statement contains: 


е The keyword CREATE. 


е A path number variable in which BASICO9 stores the 
number of the path it opens to the new file. 


* A comma, followed by the name of the file to create. 


е An optional colon, followed by the access mode. If you do 
not specify an access mode, BASICO09 automatically 
opens the created file in the UPDATE mode. 
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The following procedure shows how to create a file and write 
data into it: 


PROCEDURE makefile 


ODIM PATH: BYTE (+ establishes a variable 

OREM for the path number to the file 
ОСВЕАТЕ #PATH, "test": WRITE ( creates the file TEST 

OWRITE #PATH,"This is a test" (+ writes data to the file 

CHRITE #PATH,"of sequential files."(* writes another line of data 
CCLOSE #PATH (+ closes the path to the file 
ОНЕШ. "LIST TEST" (* displays the file contents 

ПЕК) 


Тһе first line of the procedure dimensions а variable (Path) to 
hold the number of the path that CREATE opens. This variable 
should be of byte or integer type. 


When you establish a new file with CREATE, you automatically 
open a path to the file. You do not need to use the OPEN 
command. 


The preceding procedure writes two lines into a file named Test. 
It then closes the path and uses the OS-9 LIST command to dis- 
play the contents of the newly created file. You see that the data 
is successfully stored on disk. 


The next procedure shows how to reopen an existing file for 
sequential access, read the contents of the file, and append data 
to the end of the file. 


The only way to move the file pointer to the end of a sequential 
file is to read all the data already in the file. Once the pointer is 
at the end of the file, you can add data. 


PROCEDURE append 


ODIM PATH: BYTE (+ dimension variable to hold the number of the 
OREM path to the opened file. 

QOPEN #PATH,"test": UPDATE (+ open file for reading and writing, 

DREAD #PATH, lines (+ read the first element of the file. 

DREAD #PATH, lines (+ read the next (the last) element. 


CWRITE #PATH,"This is a test" (+ write one new line to the file. 
DHRITE #PATH,"of appending to a sequential file." (+ write another. 


OCLOSE #PATH (+ close the path. 
DSHELL "LIST TEST" (+ display the file with the new lines, 
ПЕМ 
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Because the Test file already exists, this procedure uses OPEN 
to establish a path to the file. It uses the UPDATE mode of file 
access because it needs to both read from and write to the file. 


The two READ statements read the file’s contents and, as а 
result, move the file pointer to the end of the file. The WRITE 
statements then append two new lines. After closing the path, 
the procedure calls on the OS-9 LIST command to display the 
contents of the file, with its appended lines. 


Changing Data in a Sequential File 


You can also change data anywhere in a sequential file. How- 
ever, if your changes are longer than the original data, the oper- 
ation destroys part of the file. To change data in a sequential 
file, read the data preceding what you want to change, and write 
the new data to the file in this manner: 


PROCEDURE replace 

ODIM PATH: BYTE 

DOPEN #PATH, "test": UPDATE 

ОВЕВО #PATH, lines 

DREAD #PATH, lines 

QWRITE #PATH,"Let’s put new" (+ write over existing 3rd and 
QHRITE #PATH,"words into the old sequential file.'' (+ 4th lines. 
DCLOSE #PATH 

QSHELL "LIST TEST" 

ПЕН) 


Notice that the total amount of data іп the two new lines is 
exactly the same as in the two old lines. You can replace an 
existing line with fewer characters by padding the new data 
with spaces. However, if you try to replace existing lines with 
longer lines, the new lines write over and destroy other data in 
the file. 
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INPUT and Sequential Files 


Although you can also use the INPUT command with sequential 
files, doing so might put unwanted data into them. When a pro- 
cedure encounters INPUT, it suspends execution and sends a 
question mark (?) to the screen. This feature makes INPUT both 
an input and output statement. Therefore, if you open a file 
using the UPDATE mode, INPUT writes its prompts to the file, 
destroying data. If you specify text to be displayed with the 
INPUT command, INPUT writes this text to the file also. 


Random Access Files 


Random access files store data in fixed- or equal-length blocks. 
Because each record in a specific file is the same size, you can 
easily calculate the position of a record. 


For instance, suppose you have a file with a record length of 50- 
bytes (or characters). To access Record 10, multiply the record 
number (10) by the record length (50) and move the file pointer 
to the calculated position (500). 


A random access file sends and receives data (using PUT and 
GET) in a binary form, exactly as BASICO9 stores it internally. 
This feature minimizes the time involved in converting the data 
to and from ASCII representation, as well as reducing the file 
space required to store numeric data. You position the random 
access file pointer using SEEK. Compared to sequential file 
access, random file access using GET and PUT is very fast. 


Using random access commands, you can store and retrieve indi- 
vidual bytes, strings of bytes, individual elements of arrays or 
total arrays with one PUT or GET command. When you GET a 
structure, you recover the number of bytes associated with that 
type of structure. 


This means when you GET one element of byte type data, you 
read one byte. When you GET one element of real type data, you 
read five bytes. If you GET an array, you read all the elements of 
the array. This potential for reading entire arrays at once can 
greatly speed disk access. 


As well as moving the file pointer to the beginning of individual 
records, you can also move it to any position within a record and 
begin reading or writing one or more bytes from that point. 
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Creating Random Access Files 


You create and open random access files in the same way you 
create and open sequential files. The only differences are in the 
commands you use to store and retrieve the data and in the 
manner you keep track of where elements, or records, of a file 
begin and end. 


Before you can write data to a random access file, you must 
either CREATE it or open it in the WRITE or UPDATE mode. 
Once you have a path open to an existing file, use PUT to write 
data into the file. If you open the file im the READ or UPDATE 
mode, you can then use the GET command to retrieve data from 
the file. 


The PUT command can use only one parameter, the name of the 
data element to store. The parameter can be a string, a variable, 
an array, or a complex data structure. 


Before storing data, you must devise a method to store it in 
blocks of equal size. Knowing the unit size lets you later retrieve 
the data in its original form. The following procedure shows one 
way to do this: 


PROCEDURE putget 

OREM This procedure creates a file named Тез11, reads 10 data lines, 
OREM PUTs them into the file, then closes the file. Next it 

CREM opens the file in the READ mode, GETS stored lines and lists 
OREM them on the display screen, 


ODIM LENGTH: BYTE 

ODIM NULL:STRING(25) 

ODIM LINE:STRING(2S) 

ODIM PATH; BYTE 

OLENGTH=2S 

ONULL="" 

DBASE 0 

OON ERROR GOTO 18 

DDELETE "testi" (+ if the file exists, delete it. 
100K ERROR 


CCREATE #PATH,"testi":WRITE (+ create a file named testi. 
DFOR Тай TO 9 


[]SEEK #PATH,LENGTH:T (+ find beginning of each file. 
DREAD LINES (+ read a line of data. 

DPUT #PATH,LINES (+ store the line in the file. 
ПНЕХТ T 
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OCLOSE #PATH (+ close the file. 


COPEN #PATH,"testi":READ — (+ open the file for reading. 
OFOR T=@ TO 9 


OSEEK #PATH,LENGTH*T (+ find the beginning of each file. 
ПОЕТ #PATH,LINE (+ get a line from the file. 
OPRINT LINE (+ display the line. 

DNEXT T 

CLOSE «PATH ( close the file. 

DEND 


QDATA "This is test line #1" 
DDATA "This is test line #2" 
DDATA "This is test line #3" 
QDATA "This is test line #4" 
ODATA "This is test line #5" 
ODATA "This is test line #6" 
QDATA "This is test line #7" 
DDATA "This is test line #8" 
ODATA "This is test line #9" 
DDATA "This is test line #10" 


This procedure creates a file named Testl. The variable named 
Length stores the length of each line in the file (25 characters). 
The string variable Null, is a string of 25 space characters. The 
variable Line contains the data to store in each element (record) 
in the file. The variable Path stores the path number of the file. 


Next, the procedure contains an ON ERROR routine that deletes 
the file Test1, if it already exists. Without this routine, the pro- 
cedure produces an error if you execute it more than once. 


Next, the routine uses CREATE to open the file Test1. The line 
SEEK #РАТН, LENGTH*T sets the file pointer to the proper loca- 
tion to store the next line. Because Length is established as 25, 
the file lines are stored at 0, 25, 50, 75, and so on. 


After the routine initializes storage space, it begins to store 
data by reading the procedure data lines one at a time, seeking 
the proper file location, and putting the data into the file. After 
storing all 10 lines, it closes the file. 
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The last part of the routine opens the new file, uses the same 
SEEK routine to position the file pointer, and reads the lines 
back, one at a time, to confirm that the store routine is 
successful. 


The next short routine shows how you can use a procedure to 
read any line you select in the file, without reading any preced- 
ing lines: 


PROCEDURE randomread 
ODIM LENGTH; BYTE 
ODIM LINE:STRINGL25] 
ODIM SEEKLINE:BYTE 
ODIM PATH:BYTE 


CLENGTH225 

ПОРЕН #PATH,"testi":READ (+ open the file for reading. 
OLooP 

INPUT "Line number to display...",SEEKLINE (+ type a line to get. 
DEXITIF SEEKLINEX18 OR SEEKLINE<t THEN (+ test if record is valid. 
ПЕНОЕХТТ (+? exit loop if not. 

OSEEK #PATH, CSEEKLINE-1) LENGTH (+ find the requested record. 
OGET #PATH,LINE (+ read the record. 

OPRINT LINE (+ display the record. 

OPRINT 

DENDL00P 

DPRINT "That's all ....... " (+ end session. 

OCLOSE #PATH (+ close path. 

DEND 


The procedure asks for the record number of the line to display. 
When you type the number (1-10) and press (ENTER), SEEK moves 
the file pointer to the beginning of the record you want, GET 
reads it into the variable Line, and PRINT displays it. The cal- 
culation (SEEKLINE-1)*LENGTH determines the beginning of 
the line you want. If you type a number outside the range of 
lines contained in the file (1-10), the procedure drops down to 
Line 100 and ends. 


By changing this procedure slightly, you can replace any line in 
the procedure with another line. The altered procedure below 
demonstrates this: 


8-8 


Disk Files /8 


PROCEDURE random. replace 
ODIM LENGTH: BYTE 

ODIM LINE: STRING(2S) 
ODIM SEEKLINE: BYTE 

ODIM PATH: BYTE 
DILENGTHs25 


DOPEN £PATH," testi" :UPDATE(* open the file. 

DL00P 

DINPUT "Line number to display...",SEEKLINE (+ type record to find. 
DEXITIF SEEKLINE»18 OR SEEKLINE<1 THEN (> test if valid number. 


DENDEXIT (+ exit loop if not 

USEEK PATH, (SEEKLINE-1)#LENGTH (+ find the requested record. 
COET #PATH,LINE (+ get the data, 

DPRINT LINE (* print the record. 

DPRINT 


INPUT "Type new line... ",LINE (* type a new line. 
ОБЕЕК "PATH, CSEEKLINE-1)»LENGTH (+ find beginning of the record. 


DPUT #PATH,LINE (+ store the new line, 
OENDLOOP (+ do it all again. 
OPRINT "That’s all ....... " (+ terminate procedure 
OCLOSE #PATH (+ close path. 

DEND 


This time, the file is opened in the UPDATE mode to allow both 
reading and writing. You type the line you want to display. A 
prompt then asks you to type a new line. The procedure 
exchanges the new line for the original line, and stores it back in 
- the file. 


Using Arrays With Random Access Files 


BASICO9's random access filing system is even more impressive 
when used with data structures, such as arrays. Instead of using 
a loop to store the 10 lines of the Random replace procedure, 
you could store them all at once, into one record, using an array. 
The following procedure illustrates this: 
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PROCEDURE arraywrite 

ODIM LENGTH: BYTE 

ODIM LINE:STRING[25] 

ODIM RECORDCIB):STRINGI25] 
DDIM PATH:BYTE 

DLENGTH=25 


CON ERROR GOTO 19 
QDELETE "testi" (+ delete Test! if it exists. 
1200N ERROR 


ОСВЕАТЕ #PATH,"testi":WRITE (+ create Test, 
DBASE 6 


ОРОВ 750 Т0 9 


DREAD RECORD(T) (+ Read data lines into RECORD array. 
QNEXT T 

QSEEK 7PATH, В (+ set pointer to beginning of file. 
DPUT ҰРАТН, RECORD (+ store the entire array into file, 
CCLOSE #РАТН (+ close path to file. 

DOPEN /PATH,"test 1": READ (* open the file to read. 

ОРОВ Тей TO 9 

DSEEK #PATH, LENGTH#T (+ find each element, 

ОбЕТ #PATH, LINE (+ read an element, 

OPRINT LINE (+ print the element. 

ONEXT T 

DICLOSE «PATH 

DEND 


ODATA "This is test line #1" 
CDATA "This is test line #2" 
ODATA "This is test line #3" 
ODATA "This is test line #4" 
ODATA "This is test line #5" 
ODATA "This is test line #6" 
DDATA "This is test line #7" 
DDATA "This is test line #8" 
ODATA "This is test line #9" 


ODATA "This is test line £10" 
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This procedure reads the 10 lines into an array named Records. 
Then it places the entire array in the Testi file, using one PUT 
Statement. To show that the structure of the file is still the 
same, the original FOR/NEXT loop reads the lines, one at a 
time, and displays them. 


Notice that, because you need to write only one element, you can 
set the file pointer to 0 (SEEK #РАТН, 0). You can rewind a file 
pointer (set it to 0) at any time in this manner. 


You could save additional programming space by also reading the 
10 lines back into memory as an array. The following procedure 
uses a new array, Readlines, to call the file back into memory, 
and displays the lines. 


PROCEDURE arrayread 

DBASE 9 

ODIM READLINES(18):STRING( 25) 
ODIM PATH: BYTE 

DOPEN ФРАТН "testi": READ ( open file. 

DGET #PATH,READLINES (+ read file into array. 
QCLOSE #PATH 


ОРОВ 7-0 TO 9 

OPRINT READLINES(T) (+ print each element of the array. 
DNEXT T 

ПЕН) 


Using Complex Data Structures 


In the previous section, you stored and retrieved elements of an 
array that were all the same size, 25 characters. Often you need 
to store elements of varying sizes, such as when you create a 
data base program with several fields іп one record. 


The following examples create a simple inventory system that 
requires a random access file having 100 records. Each record 
includes the name of the item (a 25-byte string), the item’s list 
price and cost (both real numbers), and the quantity on hand (an 
integer). 
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First, you use the TYPE command to define a new data type 
that describes such a record. For example: 


ТҮРЕ INV_ITEM=NAME:STRING[2S1];LIST,COST:REAL; 
QTY:INTEGER 


Although this statement describes a new record type called 
Inv_item, it does not assign variable storage for the record. The 
next step is to create two data structures: an array of 100 rec- 
ords of type Inv_item named Inv. array and a working record 
named 

Work. тес. The following lines do this: 


DIM INV.LARRAYC1802: INV. ITEM 
DIM WORK. БЕС: 1 НУ ITEM Ре 
То determine the number of bytes assigned for each type, you 
can use BASICO9's SIZE command. SIZE returns the number of 
bytes assigned to any variable, array, or complex data structure. 
For example, the command line SIZECWORKI_REC) returns the 
number 37. The command SIZECINV_ARRAY) returns Ше num- 
ber 3700. 


You can use SIZE with SEEK to position a file pointer to a spe- 
cific record's address. 


The following procedure creates a file called Inventory and 
immediately initializes it with zeroes and null strings. Five 
INPUT lines then ask you for a record number and the data to 
store in each field of the record. You can fill any record you 
choose, from 1 through 100. 


When one record is complete, the procedure uses PUT to store 
the record. Then, it asks you for а new record number. If you 
wish to quit, enter a number either larger than 100 or smaller 
than 1. 


PROCEDURE inventory 

OREM Create a data type consisting of a 25-character name field, 
OREM a real list price field, a real cost field, and an integer 
OREM quantity field. 

[ТҮРЕ INV_ITEM*NAME:STRING(25]; LIST,COST:REAL; QTY: INTEGER 


ODIM INV_ARRAY(186):INV_ITEM (+ dimension an array using new type. 
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ODIM WORK. REC: INV_ITEM 
OREM (* dimension a working variable of the new type. 
ODIM PATH: BYTE 


DON ERROR GOTO 18 
QDELETE "inventory" 
18008 ERROR 


ОСВЕАТЕ ?PATH,"inventory" (+ create a file named Inventory. 
CHORK_REC NAMES" " (+ set all data elements to null or 8, 
QUORKREC.LIST=4 

QWORK__REC, COST =4 

QWORK__REC.QTY=d 

ОРОВ Net TO 180 

QPUT #PATH WORK__REC 

ONEXT К 


DL00P 

DINPUT "Record number? ",RNUM (* enter number of record to write. 
OIF RNUMCE OR RNUM>186 THEN (+ check if number is valid. 
DPRINT 

OPRINT "End of Session" (+ if not, end session. 

DPRINT 

DCLOSE «PATH 

DEND 

DENDIF 

DINPUT "Item name? ",HORK_REC.NAME (+ type data for record. 
DINPUT "List price? ",WORK_REC.LIST 

UINPUT "Cost price? ",HORK —REC.COST 

DINPUT "Quantity? ",WORK__REC.QTY 

DSEEK 4PATH,CRNUM-1)*S I2ECHORK. REC) (+ find record. 

ОРОТ #PATH,WORK__REC (+ мг е record to file. 
DENDLOOP 


Notice that the INPUT statements reference each field sepa- 
rately, but the PUT statement references the record as a whole. 


The next procedure lets you read any record in your Inventory 
file, and displays that record. If you ask for a record you have not 
yet filled with meaningful data, the display consists of a null 
string and zeroes. 


PROCEDURE readinv 
ПТҮРЕ INV__ITEM=NAME:STRING(25]; LIST,COST:REAL; QTY: INTEGER 
ODIM WORK. REC: INV_ITEM 
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DDIM PATH:BYTE 

COPEN #PATH,"INVENTORY":READ 

О000Р 

DINPUT "Record number to display? ",RNUM 

DIF RNUM<1 OR RNUM>109 THEN 

DPRINT "End of Session" 

DPRINT 

DCLOSE #PATH 

DEND 

DENDIF 

DSEEK (PATH, CRNUM-1)#SIZE(WORK__REC) 

DET #PATH WORK__REC 

DPRINT "#","Item","List Price, "Cost Price", "Quantity" 
OPRINT "-----------------....-............1 ......... ....4..4.......4...... 


OPRINT RNUM,WORK__REC.NAME , MORK REC. LIST WORK ВЕС.С05Т НОВКО ВЕС.ОТУ 
DPRINT 

DENDLOOP 

DEND 


This procedure accesses the file one record at a time. It is not 
necessary to do so. You can read the entire file into memory at 
once by dimensioning an inventory array and getting the whole 
file into it: 


CTYPE INV. -ITEM-NAME:STRINGI25]; LIST,COST:REAL; ОТҮ: INTEGER 
ODIM INV_ARRAY (106): INV_ITEM 

ОБЕЕК #PATH,@ — Crrevind the files) 

[ЕТ #PATH, INV_ARRAY 


The examples in this section are simple, yet they illustrate the 
combined power of BASICO9 complex data structures and the 
random access file statements. They show that a single GET or 
PUT statement can move any amount of data, organized in any 
way you want. Other advantages are of using complex data struc- 
tures are: 


е The procedures are self-documenting. You can see easily 
what a procedure does because its structures can have 
descriptive names. 


е Execution is extremely fast. 


e Procedures are simple and usually require fewer state- 
ments to perform I/O functions than other BASICs. 
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е The procedures are versatile. By creating appropriate 
data structures, you can read or write almost any kind 
of data from any file, including files created by other pro- 

© grams ог languages. 
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Displaying Text and Graphics 


BASICO9 has three levels of graphics capabilities. The first and 
third levels can include both graphics designs and text. The sec- 
ond level can display only graphics designs. 


ASCII Codes 


For low-resolution text screens and high-resolution text and 
graphic screens, BASICO9 uses ASCII (American Standard Code 
for Information Interchange) codes to represent the common 
alphanumeric characters. ASCII is the same code that most 
small computers use. 


A table of the standard codes follows: 


Table 9.1 
BASICO9 ASCH Codes 0-127 
Low- and High-Resolution Screens 


Character Decimal Code Hexadecimal Code 
03 03 
8 O8 
9 09 
(ж) 10 ОА 
12 0C 
13 0D 
Space 32 20 
! 33 21 
s 34 22 
# 35 23 
$ 36 24 
% 37 25 
е 38 26 
: 39 27 
( 40 28 
) 41 29 
Ж 42 2А 
+ 48 2В 
, 44 2С 
- 45 20 
ç 46 2Е 
/ 47 2Е 
0 48 30 
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Character Decimal Code Hexadecimal Code 
1 49 31 
2 50 32 © 
8 51 83 
4 52 84 
5 53 35 
6 54 36 
7 55 37 
8 56 38 
9 57 39 
: 58 3A 
š 59 8B 
< 60 3C 
= 61 3D 
> 62 ЗЕ 
? 68 ЗЕ 
@ 64 40 
А 65 41 
В 66 42 
с 67 48 
р 68 44 
Е 69 45 © 
Е 70 46 
с 71 41 
H 72 48 
I 73 49 
J 74 4А 
к 75 4В 
L 76 4С 

м 77 40 
М 78 4Е 
О 79 4Е 
Р 80 50 
9 81 51 
Е 82 52 
5 88 58 
T 84 54 
U 85 55 
V 86 56 
W 87 57 о 
x 88 58 
Y 89 59 
2 90 БА 
[ (sur v) 91 5B 
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\ ((SHIFT)(çLEAR )) 
1 (GHEE) 


(GHA) 


m --—--mN'4 M Z < реи човон Ze яс е род һоро сы оу» 
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92 


Hexadecimal Code 


5C 
5D 
БЕ 
БЕ 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
6А 
6В 
6С 
6D 
6E 
6F 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
ТА 
ТВ 
ТС 
7D 
ТЕ 
ТЕ 


You сап generate Ше characters іп this chart Бу pressing the 
appropriate key, or you can generate them from BASIC09 using 


the СНЕ$ function. 


9-3 


BASIC09 Reference 


Low-Resolution Graphic Characters 


In addition to alphanumeric characters, low-resolution graphics 
also offers graphic characters. Generate these characters by 
pressing at the same time you press a keyboard character. 
Тһе graphics character codes аге іп the range 128-255. 


Pressing while pressing another key, causes OS-9 to add 
128 to the ASCII value of the second key. (For the technically 
minded, OS-9 sets the high bit of the character code.) Therefore, 
if you press [А), you produce graphics character 193. You can 
also generate graphics characters from BASICO9 using the 
СНЕ$ function, and you can PRINT them in the same manner 
as other characters. 


Low-level graphics characters follow a pattern that repeats every 
16 characters. Table 9.2 shows the first set of graphic characters, 
128-143. Subsequent characters produce the same series of con- 
figurations but display in different colors, as shown in Table 9.3. 


Table 9.2 
Low-Resolution Graphic Character Set 


Character Code Character Code Character Code Character Code 


= 
to 
со 


= 
bo 
со 
= 
со 
с 


132 136 


= 
е 
© 
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Table 9.3 
Low-Resolution Graphics Color Set 


АБСП Code Graphics Block Color 


128 - 143 Black and Green 

144 - 159 Black and Yellow 

160 - 175 Black and Blue 

176 - 191 Black and Red 

192 - 207 Black and Buff 

208 - 223 Black and Light Blue 

224 - 239 Black and Cyan 

240 - 254 Black and Orange 
255 Green 


Within each color set, you can easily calculate the number for a 
particular character. For instance, suppose you want to print a 
character that has orange upper left and lower right corners. Pic- 
ture the character divided into four sections, numbered as 
follows: 


ЕН 


To calculate a character that has orange at Sections 8 and 1, add 
the section values to the first value in the orange group, 240, 
like this: 


240 + 8 + 1 = 249 
Character 249 is what you want. 


The following diagram shows how you might block out a large 
letter O on the screen. The shaded portions of the characters are 
colored. The unshaded portions are black. In this case we want 
the colored portions to be green (the same color as the screen). 
You can do this using the color set 128 - 143. 
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ЕНЕ 
211) 
ТА 


Because Section 1 in Ше upper left character is to be colored, 
add 1 to the initial character value of 128. The first character 
value is 129. Moving right, Sections 2 and 1 are colored in the 
second character. Add 3 to 128 to get a second character value of 
131. Calculate all 15 characters in this manner. 


You could create a letter О in a BASICO9 procedure by printing 
each of the five rows of three characters. You could use DATA 
lines to store the ASCII codes for each character, then use loops 
to read and display the characters they represent. 


Although low-level graphics is very rough, it can be useful, and 
it lets you mix graphics with text. 


The following procedure not only creates the letter O, it adds the 
letter S and the number 9 to display the name of your operating 
system. 
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PROCEDURE os9prog 
DDIM DAT:INTEGER 
DPRINT CHR$C12) 
OPRINT 

OPRINT 

OPRINT 

OFOR Z=1 TO 5 
UPRINT TABC19); 
OFOR T=1 TO 12 
ÜREAD DAT 

OPRINT CHRSCDAT); 
DNEXT Т 
OPRINT 
ПМЕХТ 2 
DEND 


143 


143 


143 


143 


143 
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DDATA 129,131,130,143,129,131,131,143,129,131,130, 
DDATA 133,143,138,143,133,143,143,143,132,140,136, 
DDATA 133,143,138,143,132,140,140,143,131,131,130, 
ODATA 133,143,138,143,131,131,130,143,143,143,138, 


DDATA 132,140,136,143,140,140,136,143,143,143,138, 
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Special Characters in High-Resolution 


High-resolution graphics does not have graphic characters but it 
does have other international and special characters. These char- 
acters are represented by АЗСП codes 128 through 159 as shown 
in the following table: 


Table 9.4 
High-Resolution Special Characters 
Hex Decimal Hex Decimal 
Character Code Code Character Code Code 
с 80 128 6 90 144 
а 81 129 ге 91 145 
в 82 130 Æ 92 146 
а 88 181 6 93 147 
a 84 132 6 94 148 
a 85 133 6 95 149 
а 86 134 a 96 150 
с 87 135 а 97 151 
е 88 186 0 98 152 
ë 89 137 о 99 153 
е 8A 188 O 9A 154 
i 8B 139 $ 9B 155 
i 8C 140 £ 9C 156 
В 8D 141 £ 9D 157 
A 8E 142 9 9Е 158 
А ВЕ 143 f 9F 159 


Medium-Resolution Graphics 


For more sophisticated graphics operations, OS-9 has built-in 
graphics interface modules that provide a convenient way to 
access the graphics and joystick functions of the Color Computer 
8. The required module for medium-resolution graphics is named 
СЕХ. И must be in your execution directory or resident in mem- 
ory when called by BASIC09. 


You can either install GFX in memory using the LOAD com- 
mand, or wait until BASIC09 calls it for a graphics function. 
Once loaded, GFX resides in memory until you remove it using 
the OS-9 UNLINK command or the BASIC09 KILL command. 
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СЕХ has а number of functions that you pass to it аз parame- 
ters with the RUN statement. For instance, the following state- 


ment clears the current graphics screen: 


RUN GFXC"CLEAR") 


Other tasks need such parameters as position, color, and size. 
The following is a quick reference to all of the GFX functions. 
Each is explained in detail later: 


Function 
ALPHA 


CIRCLE 


CLEAR 


COLOR 


GCOLR 


GLOC 


JOYSTK 


LINE 


MODE 


Purpose 


Sets the screen to the 
alphanumeric mode. 


Draws a circle. 


Clears the screen to a 
color. 


Changes the foreground 
and background colors. 


Reads a pixel’s color. 


Returns a video display 
address. 


Returns the joystick 
button and X- and Y- 
coordinate status. 


Draws a line. 


Switches the screen 
between alphanumeric 
and graphics, sets the 
graphics screen color. 


Positions the invisible 
graphics cursor. 


Parameters 


None. 


Radius, optional X- and 
Y-coordinates, and color. 


Optional color for screen. 


Foreground and 
background colors. 


Names of variables in 
which to store optional 
X- and Y-coordinates. 


None. 


Names of variables in 
which to return the 
values. 


Ending X- and Y- 
coordinates, optional 
beginning coordinates, 
optional color. 


Format, Color. 


X- and Y-coordinates. 
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Function Purpose Parameters 


POINT Moves graphics cursor X- and Y-coordinates 
and sets a point. and optional pixel color. 


QUIT Returns screen to None. 
alphanumeric mode. 
Deallocates graphics 
memory. 


Formats and Colors 


In medium-resolution graphics, you have a choice of two formats. 
Format 0 provides 256 horizontal points by 192 vertical points, In 
this format, you can have only two colors on the screen at a time. 


Format 1 provides a 128 by 192 point screen and a maximum of 
four colors on the screen at a time. OS-9 medium-resolution 
graphics treats the screen as if it were a grid, with coordinate 
0,0 at the lower left corner as shown іп the following illustration. 
All points on the grid are positive. 


Y-coordinate,0 А 
ІЗГЛІЛІСІР ТУЕ | 


0, X-coordinate 


BASIC09 defines colors with numbers оғ color codes. Мапу СЕХ 
functions allow or require color codes as parameters. BASIC09 
also divides the color codes into color sets. Specifying a color code 
outside the current color set automatically initializes the new 
set. 
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Format 0 Format 1 


Buff 
Cyan 

Magenta 
Orange 


Black 
Dk Green 
Md Green 
Lt Green 


Table 9.5 


Use the preceding charts to chose colors for those functions that 
let you specify foreground or background colors. For instance, to 
initialize a Format 1 graphics screen with a green background 
and a red foreground, you type: 


run gfxC€"mode",1,3) 


The following reference section describes all the medium-resolu- 
tion graphics functions, and provides examples and sample pro- 
grams. To understand the organization of the commands 
reference, see “The Syntax Line” in Chapter 11. 
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Тһе Draw Pointer 


Medium-resolution graphics uses а ағаш pointer, or invisible 
graphics cursor, to determine what area of the screen is affected 
by graphics operations. When you establish a graphics screen, 
the draw pointer is located at coordinates 0,0. Some graphic 
functions automatically change the pointer location on the 
sereen. For instance, the LINE function moves the draw pointer 
from the beginning coordinates to the end coordinates. 


Because some functions Берт at the draw pointer, you need to 
keep track of its location and make certain it is placed properly. 
Use the MOVE function to set the draw pointer to new locations. 
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ALPHA select alphanumeric screen 


Syntax: RUN GFX(“ALPHA”) 


Function: Switches from the graphics screen to the alphanu- 
meric (text) screen. The current graphics screen remains 
intact. 


Parameters: None 


Examples: 
RUN GFXC"ALPHA") 


Sample Program: 


This procedure lets you choose to draw a circle or rectangle of 
the size you select. Once you choose the shape and size, it uses 
the MODE function to select a graphics screen. When the shape 
is complete, you press to return to a text screen. The pro- 
cedure uses the ALPHA function to return to the original menu. 


PROCEDURE alpha 

DIM XCOR,YCOR,SIDE1,SIDE2,RADIUS, T, X, Y, Z: INTEGER 
DIM RESPONSE:STRING(11 

10 REPEAT 

DSHELL "DISPLAY ВС" 

OPRINT "Do you want to draw" 

DPRINT "12 А rectangle" 

OPRINT "22 A circle" 


ж [у лш! 


OPRINT " -Press 1 or 2..."; 
ПОЕТ #0, КЕЗРОМБЕ 
OPRINT 


OIF RESPONSE="1" THEN 

DINPUT "Length of Side 1...",SIDE1 

DINPUT "Length of Side 2..." ,51рЕ2 

ORUN GFXC"MODE",0,0) 

ORUN GFXC"CLEAR") 

DXCOR*18 

Пусоке18 

ORUN GFXC"LINE",XCDR,YCOR,XCOR*SIDE1,YCOR, 1) 
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ORUN GFXC™LINE", XCOR+SIDE1,YCOR,XCOR+SIDE1,YCOR+ 
SIDE2,1) 

ORUN GFXC"LINE",XCOR*SIDE1,YCOR*SIDE2,XCOR, YCOR+ 
SIDE2,1) © 
ОВОМ GFXC"LINE",XCOR,YCOR*SIDE2,XCOR,YCOR, 12 
DINPUT RESPONSE 

DELSE 

DIF RESPONSE="2" THEN 

DINPUT "Hhat radius?...",RADIUS 

ОВОМ GFXC"MODE",2,1) 

ORUN GFXC"CLEAR") 

ОВОМ GFXC"CIRCLE",128,98, RADIUSO 

DINPUT RESPONSE 

DENDIF 

DENDIF 

DUNTIL RESPONSE«»''1" AND ВЕЅРОМЅЕ <> "2" 

DRUN GFXC"ALPHA") 

OGOTO 18 

DEND 
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CIRCLE Draw a circle 


Syntax: RUN GFX(“CIRCLE”[,xcor,ycor],radius [,color]) 


Function: Draws a circle of a given radius. If you do not spec- 
ify a color, BASICO9 uses the current foreground color. If you 
do not specify X- and Y-coordinates, CIRCLE uses the current 
graphics cursor position as the circle's center. 


Parameters: 
radius Тһе radius of the circle you want to draw. 
color The code of the color you want the circle to be. 
See the chart earlier in this section for color 
information. 
xcor,ycor The X- and Y-coordinates for the center of the 
circle. Specifying coordinates outside the X- 
coordinate range of 0-255 or outside the Y- 
coordinate range of 0-191 causes an error. 
Examples: 


RUN GFXC'CIRCLE",100) 
RUN GFXC"CIRCLE",100,3) 
RUN GFXC'"CIRCLE",125,100,100) 


RUN GFXC"CIRCLE",125,100,100,2) 


Sample Program: 


This procedure uses CIRCLE to draw and erase a circle. The 
location of the circle changes before each draw/erase operation, 
causing the circle to move. When it hits the edge of the screen, 
it reverses its direction at a random angle and bounces. 


PROCEDURE circles 

ODIM RADIUS,XCOR,YCOR: INTEGER 
ODIM XTEMP,YTEMP: INTEGER 

ODIM PATH1,PATH2: INTEGER 

ODIM FLAG: INTEGER 
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OFLAG=1 

OXCOR=5 

ПҮСПЕ «5 

OPATH1=RNDC15)+2 

DPATH2=RNDC10)+2 

ОХТЕМР 249 

ПУТЕМР = 185 

ORUN GFXC"MODE",0,1) 

ORUN GFXC"CLEAR") 

DFOR T=1 ТО 200 

CWHILE XCOR<25@ AND XCOR>4 AND YCOR<186 AND YCOR>4 
ро 

ОВОМ GFXC"CIRCLE",XTEMP, YTEMP,3,0) 

ОКОМ GFXC"CIRCLE",XCOR,YCOR,3,1) 

DXTEMP-XCOR 

DYTEMP < YCOR 

ОХСОКЕХСОК + РАТНТ1 

DYCOR=YCOR+PATH2 

DENDHHILE 

ПРАТН1 <ЕНОС15) +2 
ПРАТН2«РМрС102%2 
DIF XCOR»249 THEN 
OXCOR=249 

DENDIF 

DIF XCOR<S THEN 
ОХСОК+5 

OENDIF 

OIF YCOR>185 THEN 
ОУСОК- 185 

DENDIF 

DIF YCOR<S THEN 
DYCOR=5 

DENDIF 

OF LAG=FLAG#-1 
DIF FLAG<0 THEN 
OPATH1 =PATH1 + -1 
OPATH2=PATH2*-1 
OENDIF 

DNEXT Т 

DEND 
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CLEAR Clear the screen 


Syntax: RUN GFX(“CLEAR”[,color]) 


Function: Clears the current graphics screen. If you do not 
specify a color, CLEAR sets the entire screen to the current 
background color. CLEAR also sets the graphics cursor at 
coordinates 0,0, the lower left corner of the screen. 

Parameters: 


color A code indicating the color to set the screen. 


Examples: 
RUN GFXC"CLEAR") 
RUN GFXC™CLEAR", 14) 
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СОГОК Change the foreground color 


Syntax: RUN GFX(“COLOR”,color) 


Function: Changes the foreground color (and possibly the color 
set). COLOR does not change the graphics format or the cur- 
sor position. 


Parameters: 
color A code indicating the color you want for the 
foreground. See the chart earlier in this chap- 
ter for color information. 
Examples: 


RUN СРХС"СОГОК" , 18) 


Sample Program: 


This procedure connects a series of differently colored circles to 
produce a necklace effect. 


PRDCEDURE necklace 

ODIM COLOR,T,U,J,R,FLAG,XCOR,YCOR: INTEGER 
ORUN GFXC"MODE",1,2) 
ORUN GFXC"CLEAR") 
DBCOLOR*1 

BXCORs1 

OYCOR=1 

OR=2 

OFOR T=1 TO 6 

OFOR J=1 TO 40 
OXCOR=XCOR+1 
OYCOR=YCOR+.8 

OIF FLAG<0 THEN 

OR=R-1 

OELSE 

OR=R+1 

DENDIF 

QCOLORsCOLOR*1 

OIF COLOR>3 THEN COLOR=1 
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DENDIF 

ORUN GFXC"CIRCLE",XCOR,YCOR,R,COLOR) 
DNEXT J 

DFLAG-FLAG*-1 

DNEXT T 

DFOR U=1 TO 10000 

ПМЕХТ U 

DEND 
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GLOC Find the graphics зсгееп location 


Syntax: RUN GFX(“GLOC”,storage) 


Function: Determines the location of the graphics screen in 
memory and returns the address in the specified variable. 
When you know the graphic screen address, you сап use 
PEEK and POKE to perform special functions not available in 
the GFX module, such as filling a portion of the screen with a 
color or saving a graphics screen to disk. 


OS-9 Level Two maps display screens into a program’s 
address space before PEEK and POKE can operate on a dis- 
play screen. This means that you must have at least eight 
kilobytes of free memory in the user’s address space. Program 
and data memory requirements must not exceed 56 kilobytes. 


Parameters: 
storage An integer or byte type variable in which 
GLOC stores the memory address of the 
graphics screen. 
Examples: 


RUN GFXC"GLOC", location) 


Sample Program: 


This procedure uses the GLOC function to locate the current 
graphics screen, then uses POKE to paint a series of boxes on 
the screen. 


PROCEDURE boxin 

ODIM LOCATION,PLACE,COLOR,BEGIN,GUIT, X, TERMINATE, 
LINE,T,J:INTEGER 

ОВОМ GFXC"MDODE",1,8) 

ОВОМ GFXC™CLEAR") 

ORUN GFXC'"GLOC",LOCATIOND 

QLOCATION=LOCATION+1@@ \ PLACE-LOCATION 

OBEGIN=1 й 

DQGQUIT=80 
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OCOLOR=255 
OTERMINATE=198 

DLINE-32 

DFOR X-1 TO 4 

DFOR Т=1 TO QUIT 

OFOR J-BEGIN TO TERMINATE 
ПРОКЕ PLACE*J,COLOR 
DNEXT J 
DPLACE-PLACE*LINE 
ПМЕХТ Т 
OLOCATION=LOCATION+160 
OBEGIN=BEGIN+1 
OPLACE=LOCATION 
DQUIT=QUIT-18 
DTERMINATE=TERMINATE-1 
OCOLOR=COLOR-85 

DNEXT X 

DINPUT Z$ 

DEND 
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J OYSTK Get joystick status 


Syntax: RUN GFX(“JOYSTK”, stick, fire,xcor,ycor) 


Function: Determines the status of the specified joystick fire 
button and the X,Y position of the specified joystick handle. 
Use this function only with a standard joystick or mouse, not 
with the high-resolution mouse adapter. 


Parameters: 


stick 


fire 


xcor,ycor 


Examples: 


The joystick (0 or 1) for which you want to 
determine the status. 0 indicates the right joy- 
stick, 1 indicates the left joystick. 


A variable in which JOYSTK returns the sta- 
tus of the specified fire button. Fire can be 
byte, integer, or Boolean type. A value other 
than 0 or TRUE indicates the button is 
pressed. 


Byte or integer type variables in which 
JOYSTK stores the X- and Y-coordinates of 
the joystick handle position. The coordinate 
range is 0-63. 


RUN GFXC"JOYSTK",@,shoot,x,y) 
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Sample Program: 


This procedure uses the JOYSTK function to draw on the screen 
with the right joystick. 


PROCEDURE joydraw 

ODIM STICK,FIRE,XCOR,YCOR,XTEMP,YTEMP: INTEGER 
ОВОМ GFXC™MODE",8,1) 

ORUN GFXC'"CLEAR") 

ПӘ0Ү-0 \XCOR=8 \YCOR=9 

OREPEAT 

DXTEMP=XCOR 

ПҮТЕМР«ҮСОВ 

ORUN GFXC"JOYSTK",8,FIRE,XCOR,YCOR)D 
OXCOR=XCOR#4 

OYCOR=YCOR#4 

ORUN GFXC"LINE",XTEMP,YTEMP,XCOR,YCOR) 
DUNTIL FIRE<>6 

DEND 
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LINE Draw a line 
° 


Syntax: | RUN GFX(“LINE”[,xcor1,ycor1],xcor2,ycor2 
L,color]) 


Function: Draws a line in the current or specified foreground 
color in one of the following ways: 


е From the current draw position to the specified X,Y- 
coordinates. 


е From the specified beginning X- and Y-coordinates to the 
specified ending X, Y-coordinates. 
Parameters: 
xcorl,ycorl Are LINE's beginning X- and Y-coordinates. 
xcor2,ycor2 Are LINE's ending X- and Y-coordinates. 
color А code indicating the color you want the line о 
{о be. See Ше chart earlier іп this section for 
color information. 
Examples: 
RUN GFXC"LINE",192,128) 
RUN GFXC"LINE",0,0,192,128) 
RUN GFXC"LINE",0,0,192,128,2) 
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Sample Program: 


This procedure draws a sine wave of vertical lines across the 


© 5сгееп. 


PROCEDURE waves 

ODIM A,B,C,D,X,Y,2: INTEGER 
OCALC=@ N А=100 

ORUN GFXC"mode",0,1)2 
ORUN GFXC"CLEAR")2 

ОКОМ GFXC"COLOR",2) 

DFOR Х=@ TO 255 STEP 1 
OCALC=CALC+.65 
OY=A-SINCCALCI*15 

02-у+ 25 

ORUN GFXC"LINE",X,Y,X,2) 
DNEXT X 

DEND 
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MODE Switch to graphics screen 


Syntax: RUN GFX(“MODE”,format,color) 


Function: Switches the screen from alphanumeric (text) to 
graphics, selecting the screen format and color code. You must 
run MODE before you can use any other graphics function. 
When you do, BASICO9 allocates а six-kilobyte block of mem- 
ory for graphics. If your system does not have this amount of 
memory available, OS-9 returns an error message. 


Parameters: 
format Either 0 (a two-color 256 by 192 pixel screen) 
or 1 (a four-color, 128 by 192 pixel screen). 
color A code indicating the color to set the screen. 
See the chart earlier in this chapter for infor- 
mation on color sets. 
Examples: 


RUN GFXC™MODE",1,2) 
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MOVE move graphics cursor 


Syntax: RUN GFX(“MOVE”,xcor,ycor) 


Function: Moves the invisible graphics cursor to the specified 
location on the screen. MOVE does not change the display in 
any way. 


Parameters: 


xcor,ycor The coordinates for the cursor. 


Examples: 
RUN GFXC"MOVE", 192,128) 


Sample Program: 


This procedure draws and pops bubbles on the screen using the 
CIRCLE function. It uses MOVE to select the position for the 
circles. 


PROCEDURE bubbles 

ODIM XCOR,YCOR,T,R,ARRAYC3,100): INTEGER 
ORUN GFXC"MODE",1,0) 

ORUN GFXC"CLEAR") 

OFOR Т=1 TO 28 

DARRAYC1,T)=RNDC255) 
DARRAYC2,T)=RNDC192) 
DARRAYC3,T)=RNDCS0) 

ORUN GFXC"MOVE" , ARRAYCT, TO ,ARRAYCO,TOD 
ORUN GFXC"CIRCLE",ARRAYC3,T),3) 

ПМЕХТ Т 

DFOR Т=1 Т0 20 

ORUN GFXC"MOVE", ARRAYC1,T),ARRAYC2,T)) 
ORUN GFXC"CIRCLE" , ARRAYCS, T2, 0) 

DSHELL "DISPLAY 07" 

DNEXT T 

DEND 
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POINT Set point to specified color 


Syntax: | RUN GFX(“POINT”,xcor,ycor[,color]) 


Function: Displays a dot at the specified coordinates. If you 
specify a color, POINT sets the pixel at the new coordinates to 
that color. Otherwise, POINT sets the pixel at the new coordi- 
nates to the foreground color. 


Parameters: 
xcor,ycor The X- and Y-coordinates for a pixel. 
color The code of the color you want the pixel to be. 
See the chart earlier in this section for color 
information. 
Examples: 


RUN GFXC"POINT",192,128)D 
RUN GFXC"POINT",192,128,2) 


Sample Program: 
This procedure uses POINT to draw filled boxes on the screen. 


PROCEDURE boxup 

ODIM XCOR,YCOR,BEGIN,COLOR,QUIT,TERMINATE,LINE: 
INTEGER 

DDIM T,X,Y:INTEGER 

OXCOR=58 \YCOR=38 \COLOR=1 

OBEGIN=1 \START=1 \QUIT=26 \TERMINATE=58 

ORUN GFXC"MÜDE",1,0) 

ORUN GFXC"CLEAR") 

OFOR Т=1 TO 4 

DFOR X=BEGIN TO QUIT 

OFOR Y=START TO TERMINATE 

ОКОМ GFXC"POINT",XCOR+Y,YCOR,COLOR) 
ПМЕХТ Y 

OYCOR=YCOR+1 

ОМЕХТ Х 


ОЅТАКТ = ЅТАВТ +10 
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OTERMINATE=TERMINATE-18 
OCOLOR=COLOR+1 

DNEXT Т 

DINPUT Z$ 

ОЕКО 
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QUIT Deallocate graphics screen 


Syntax: RUN GFX(“QUIT”) 


Function: Switches the screen to the alphanumeric (text) mode 
and deallocates graphics memory. 


Parameters: None 


Examples: 
RUN GFXC"QUIT") 
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High-Resolution Graphics 


BASIC09’s high-resolution graphics greatly expand the capabili- 
ties of the Color Computer 3. You can have greater screen resolu- 
tion (up to 640 by 192 pixels), as many as 64 colors, and the 
ability to mix graphics and text on one screen. In addition, you 
can use different text fonts, or styles. 


The high-resolution module, GFX2, has many more functions 
than its medium resolution counterpart. GFX2 gives you the 
ability to: 


ө Select from 64 colors. OS-9 provides a palette with 16 
default colors. You can change any of these default colors to 
any of the 64 colors available on the Color Computer 3. 


е Set border colors. 

е Set color patterns. 

е Create different types of graphics screen cursors. 
е Use logic functions. 

е Turn an automatic scaling function off or on. 

е Draw outline or filled boxes. 

е Draw ellipses and arcs. 

e Fill specified areas with specified colors. 

е СЕТ and PUT sections of the graphics screen. 


е Select character fonts, which include boldfaced, transparent, 
and proportionally spaced characters. 


е Move the cursor. Erase portions of a line or of the screen. 
е Select reverse or normal video. 
е Underline text. 


Also, high-resolution graphics operate through the OS-9 Win- 
dowing System. This means that you can run several procedures 
in different windows. You can establish windows to display text, 
or to display graphics, or both. You can easily display any 
window. 
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Establishing a Hardware Window 


Eor your convenience, OS-9 has a number of predefined or hard- 
шаге window formats. Hardware windows are text windows, and 
you cannot use them for graphic applications. Because hardware 
windows are predefined, you can easily establish them with the 
INIZ command. For instance, to establish Window 7, type: 


iniz м? 
However, you cannot see the window until you send a message to 
it. Type: 

echo Hello Window 7 > /w?7 [ENTER 


Now, to see the window and your message press (CLEAR). To 
return to the original screen, press (CLEAR) again. 


To OS-9, a window is a device and you can send data to it. To 
view the Errmsg file in the SYS directory of your system 
diskette, list it to Window 7 by typing: 


list sys/errmsg > /w7 (ENTER) 


Press to move to Window 7 and see the listing. Press 
SHIFT ( CLEAR J to return to the previous screen. 


You can also fork a shell (an execution environment) to a win- 
dow. To cause a shell to operate in Window 7, type: 
shell i-/w7& 


The i- function of SHELL tells OS-9 that the window is im- 
mortal. It does not die after completing a task. To operate OS-9 
from the window, press (CLEAR). 


Besides Window 7, you have six other predefined windows. The 
following chart shows all the hardware windows and their 
parameters: 
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Starting 
Coordinates 
Window Screen Size X-Coord, Window Size 
Number Chars/line Y-Coord Cols Rows 
1 40 0,0 27 11 
2 40 28,0 12 11 
3 40 0,12 40 12 
4 80 0,0 60 11 
5 80 60,0 19 11 
6 80 0,13 80 12 
7 80 0,0 80 24 
Defining Windows 


Аз well as hardware windows, OS-9 also lets you establish win- 
dows to your own specifications. You can set definable windows 
for either text or graphics, or both. You can locate them any- 
where on a screen, and you can make them any size. 


You initialize definable windows in the same manner you initial- 

ize hardware windows, using INIZ. If you want to have text оп 
) the window, you must merge SYS/Stdfonts (found on your system 
` diskette) with the window. You can also establish a shell in a 

definable window, from which you can use OS-9 or BASICO9. 


To establish definable windows you must supply OS-9 with infor- 
mation about the type of window you want (its graphic format), 
its size, and its location on the screen. The easiest way to do this 
is with the OS-9 WCREATE command. 
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WCREATE requires a window format code in the form 
- s=format code to tell OS-9 what type of a window you want. 
The following chart shows the possible window formats you саг. ©) 


сһоове: 


Format 
Code 


00* 


Screen Size 
Cols x Rows 


40 x 24 
80 x 24 
80 x 24 
40 x 24 
80 x 24 
40 x 24 


Table 9.6 


Resolution 
Width/Height 


640 x 192 
320 x 192 
640 x 192 
320 x 192 


Specifies the current screen. 


No. of 
Colors 
161 
167 
2 
4 
4 
16 


Memory 
Required 


1600 
4000 
16000 
16000 
32000 
32000 


Screen 
Type 


Text 
Text 
Graphics 
Graphics 
Graphics 
Graphics 


FF Current display screen. Use when putting several windows оп the same 


physical screen. 


t You have to reconfigure the palette to get 16 colors rather than the default of 
eight colors. The following section provides information on the palette. 


Format Codes 01 and 02 select text screens, and Format Codes 5- 
8 select graphics screens. The Screen Size column shows the 
maximum number of text columns and rows available for each 
screen. The Resolution column shows the maximum pixels 
(graphic units) available for each of the graphic screens. The 
Memory column shows how much memory OS-9 must set aside 
for each screen format. Memory requirements depend on the res- 
olution and number of colors selected for a window. 


The Palette 


BASICO9 has 64 colors you can select for screen displays. The 
colors are available through a palette. The Color Computer's pal- 
ette can hold 16 colors at once. 


ко 
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Тһе following chart shows the default colors Юг Ше palette іп 
Screen Format 7: 


о Table 9.7 


Register Color Register Color 
00 Black 08 Black 
01 Red 09 Green 
02 Green 10 Black 
03 Yellow 11 Buff 
04 Blue 12 Black 
05 Magenta 13 Green 
06 Cyan Biack 


White 


Instead of the default colors, you can select any of the 64 colors 
(0-63) for any of the palette registers. You do this using the PAL- 
ETTE command described later in this chapter. The BORDER 
and COLOR commands also affect the colors available in the pal- 
ette by changing the color in the background and foreground 
registers, Registers 02 and 03, respectively. 


Note: The information in the next section assumes you have 

© а Color Computer 3 with 512 kilobytes of memory. If your 
computer has 128 kilobytes of memory, skip to the section 
“High-Level Graphics With 128K.” 


Establishing a Graphics Window 


To create any window, you should first initialize it with the INIZ 
command. Type: 


iniz м1 [ENTER 


So that you can later type in the new window, merge the 
Stdfonts file with it. Type: 


merge sys/stdfonts>/wi 


Using the information in the preceding tables, use WCREATE to 
establish a graphics window. The following command line creates 
a graphics window in Window 1 that has 320 x 192 resolution 

© and that fills Ше entire screen. Тһе new window has 16 colors 
available and provides 40 column by 24 line text: 
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wcreate /w1 -s=8 00 00 40 24 03 02 02 


е5 Тһе screen border color 
The всгееп background 
color 
The screen foreground 
color 

> The screen length іп 

rows 
The screen width in 
columns 
The Y-Coordinate for the 
beginning of the screen 
The X-coordinate for the 
beginning of the screen 
The screen type 
The window name 
The command name 


Starting a Shell in a Window 


At this point, the new window exists, and you can send data to 
it. However, if you want to operate from the window, you must 
install a shell in it. Type: 


shell i-/w1& 
Press to move to the new window. To load BASICOG, type: 
basic@9 #10K 


Select either more or less memory, according to your needs. 
Using ВА51С09 in a graphics window, you can write procedures 
to create high-resolution graphics, and you can display the 
graphics on the same screen. 
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Using High-Level Graphics With 128K 


If your computer is equipped with only 128 kilobytes of memory, 
you cannot use more than one window with BASICO9. Also, to 
use even one window, you must follow certain steps to provide 
enough memory for BASICO9 operations. 


Refer to Table 9.6. You must select a window mode that does not 
use more than 16000 byte of memory—either window Format 5 
or Format 6. 


To provide enough memory to use BASICO9, you must fork а 
shell to the window you create, then kill the shell in TERM. 
Doing this means that you can no longer operate from your 
TERM screen. However, you can run OS-9 and BASICO9 from 
the window. 


The following steps show you how to create a Format 6 graphics 
screen in Window 1, write a BASICO9 high-resolution graphics 
procedure, and execute it using minimum memory. 


1. Boot OS-9. Then, create a graphics window by typing: 


iniz w1 

wcreate /w1 -==06 00 00 40 24 06 01 01 
g merge sys/stdfonts»/wl д), 

shell i=/w1& (ENTER) 

ex (ENTER) 


2. The system stops, and you can no longer type or issue com- 
mands. Press to move to the new window. Then, load 
BASICOO9 by typing: 


Бавісй9 
8. Enter Ше edit mode, апа type the following ргоседиге: 


PROCEDURE squeeze 

ODIM XCOR,YCOR,X,Y:INTEGER; RESPONSE:STRING[1) 
ORUN GFX2C"CUROFF") 

OXCOR=328 N YCOR-95 А Х-300 А FLAG=1 
OPRINT CHR$C12) 

DLOOP 

UFOR Үз1 TO 188 STEP 2 

OX=X-3 

06050В 18 

ШЕ FLAG<1 THEN 

ORUN GFX8C"COLOR",2) 
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DELSE 

ORUN GFX2C"COLOR",3) 
DENDIF 

ОВОМ GFX2C"ELLIPSE",XCOR,YCOR,X, YO 
DFLAG-FLAG*-1 

DNEXT Y 

ORUN GFX2C"COLOR",1) 
DFOR Ү-99 TO 1 STEP -2 
пеозив 18 

OX=X+3 

URUN GFX2C™ELLIPSE",XCOR,YCOR,X,Y) 
DNEXT Y 

ORUN GFX2C"COLOR",0) 
OENDLOOP 

A URUN INKEYCRESPONSE) 
DIF RESPONSE="" THEN 
DRETURN 

DENDIF 

18DPRINT CHR$C12) 

ORUN GFXeC"COLOR",0) 
DRUN GFX2C"CURON") 
DEND 


4. When you have entered the procedure exactly as shown, exit 
the edit mode, and from the BASICO9 command mode, save 
Squeeze by typing: 

save squeeze 

5. Compile Squeeze by typing: 

pack squeeze 


Squeeze is now an executable module saved in your current 
execution directory. The following steps assume your execu- 
tion directory is /D0/CMDS. 


6. Exit BASICO9 by typing: 
bye 


7. Merge Squeeze, RUNB, INKEY, and GFX2 into one module. 
To do this, type: 


merge /d@/cmds/squeeze /d@/cmds/runb /d@/cmds/ 
inkey gfx2 > /d@/cmds/yawn (ENTER) 
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8. MERGE does not set the new file Yawn as an executable file. 
Before you execute it, you must make the file executable by 


typing: 
attr /90/уамп е ре 
9. То execute Yawn, type: 


yawn 
10. То terminate the procedure, press the space bar. 


The merging procedure in Step 7 saves a considerable amount of 
memory. Every module you load uses one or more 8-kilobyte 
blocks of storage space. For instance, INKEY is only 94 bytes in 
length. However, if you load it аз a separate module, it requires 
8192 bytes. RUNB is 12185 bytes in length. This means that it 
requires two 8-kilobyte blocks, or 16384 bytes of memory. GFX2 
is 2190 bytes in length, and Squeeze is 605 bytes in length. 
Loaded individually, they also require two memory blocks. 


If you load all four modules independently, they use 40960 bytes. 
However, by combining them into one file, they load into two 
memory blocks, or 16384 bytes. 


Using the information in this section, you can write and execute 
numerous BASICO9 procedures with only 128 kilobytes of mem- 
ory. However, if your computer has 512 kilobytes of memory, you 
can bypass many of these steps. Also, the additional memory 
enables you to have several windows open at one time. For 
instance, you can create one window in which to write BASICO9 
procedures, another window in which to execute your procedures, 
and a third window from which you can use OS-9 commands. 


Note: The remainder of this chapter assumes you have 512 
kilobytes of memory. If you don’t, you can still run many of 
the sample procedures by implementing the steps in this 
section. 


Creating Windows from BASIC09 


Using GFX2 routines, BASICO9 provides the means to create 
and manage windows. The steps for creating windows from 
BASICOS are as follows: 


1. DIM a variable to hold the path number to the window you 
want to create. 
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2. OPEN a path to the window. 
8. SELECT the new window as the display window. 


4. Send commands, data, or text to the window through the open © 


раїһ. 
5. CLOSE the open path. 
6. Use SELECT to return to your original window. 


If you do not want to return immediately to the screen or win- 
dow of origin, you can skip Steps 5 and 6. 


Тһе following sample procedure shows how to open Window 2 as 
a 320 x 192 graphics window, draw а circle, then return to the 
original screen when you press a key. 


PROCEDURE make—win 

DIM PATH: INTEGER 

DIM RESPONSE:STRING[1] 

OPEN #PATH,"/We": WRITE 

RUN GFX2 CPATH,"DWSET",68,69,08,48,24,03,02,92) 
RUN GFX2 CPATH,"SELECT") 

RUN GFX2 CPATH,"CIRCLE",298,98,88) 
GET #1,RESPONSE 

CLOSE #РАТН 

RUN GFX2 ("SELECT") 

END 


This procedure establishes a Format 8 window, beginning at 
Coordinates 0,0 and covering the total screen. The foreground 
color is green, the background color is black, and the border color 
is black. 


Because this procedure does not INIZ the window it opens, the 
window automatically disappears when the procedure closes its 
path. To create a window that stays in the system, even after 
5 e the path to it, use INIZ before the OPEN statement, 
ike this: 


SHELL “INIZ /W2" 


After you create and define the window, view it by pressing 
[CLEAR]. То get back to the screen you are working on, press 
(CLEAR). If you intend to use a window more than once іп a proce- 
dure, you do not need to close its path until the procedure no 
longer needs it. 
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Creating Overlay Windows 


When you establish a window, you are initializing an OS-9 
device. However, an overlay window is only a new screen for an 
existing window. An overlay screen can be the same size as its 
window, or it can be smaller. OS-9 automatically transfers to the 
overlay window any current procedures operating in the device 
window. 


The process for creating overlay windows lets you select whether 
you want to save the contents of the screen covered by the new 
window. If you choose to save the contents, the previous screen is 
redisplayed when you end the overlay. 


The following procedure provides an example of using overlay 
windows. It creates six overlays, each smaller than the preceding 
window. The procedure then waits for you to press a key. When 
you do, it removes the overlay windows. 


PROCEDURE overwindows 

ODIM X,Y,X1,Y1,T,J, B,L,PLACE: INTEGER 
DDIM RESPONSE:STRINGI[1] 

ПХ-й NY-0 

ОХ1а 88 \Y1=24 

OPLACE=33 

ПЕПЕ T=1 TO 6 

ШЕ T=2 OR T=6 THEN 

OB=3 

DELSE В=2 

ПЕМОТЕ 

ORUN GFX2C"OWSET",1,X,Y,X1,Y1,B,T) 
OX=X+6 \Ү=Ү+2 

OX1=X1-12 NY1=Y1-4 

OFOR J=1 TO 5 

OPRINT TABCPLACE); "Dverlay Screen "; Т 
ОНЕХТ J 

OPLACE=PLACE-6 

DNEXT Т 

OPRINT "Overlay Screen 6" 

OPRINT "Press А Кеу..."; 
ПОЕТ #1,RESPONSE 

OFOR T=1 TO 6 

ORUN GFX2C"OWEND") 
ПМЕХТ Т 

DEND 
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The Graphics Cursor and the 
Draw Pointer 


High-resolution graphics provide a text cursor, a graphics cursor, o 
and a draw pointer. Тһе text cursor and the graphics cursor can 

be either visible or invisible. The draw pointer is always 
invisible. 


Text functions always begin at the current location of the text 
cursor. Whenever you print on the screen, the cursor automati- 
cally moves to the end of the text or to the beginning of the next 
line, depending on whether or not you use a semicolon after the 
print statement. You can reset the text cursor to any place on 
the screen with the CURXY function of GFX2. 


Many BASICO9 graphics functions also begin operating at а 
location pointed to by the draw pointer. When you begin graph- 
ics, the draw pointer is located at coordinates 0,0. BASICO9 then 
updates the pointer as you execute certain graphics functions. 
For instance, the LINE function of GFX2 draws from the draw 
pointer position to the specified end coordinates. The draw 
pointer is left pointing to the end coordinates. о 


Because some functions Берт at the draw pointer, you need to 
keep track of its location and make certain it is placed properly. 
Use the SETDPTR function to move the draw pointer to new 
locations. 


The graphics cursor is for use with joystick or mouse operations. 
It provides a pointer for graphics applications. The system 
diskette provides patterns that can be loaded into the graphics 
cursor buffer. You can select from a variety of pointer images. 


High-Resolution Text 


When you create a graphics window, you can display either text 
characters, graphics characters, or both. 


To display graphics, move the draw pointer to the location where 
you want the graphics to begin. Then, execute the graphics 


routines. о 


То display text, move the text cursor to the location where you 
want the text to begin. Then, use normal BASIC commands to 
print text. 
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Instructions for the draw pointer relate to a 640 x 192 grid, 
numbered 0-639 and 0-191. Instructions for the text cursor 
relate to the number of characters per line and the number of 
lines on the current screen format. 


Using Fonts 


OS-9 has built-in fonts (character sets). You can also create your 
own fonts and instruct BASICO9 to use them. If you create your 
own fonts, you can design any symbols or graphics characters 
you want to use. 


To use fonts, you must be in a graphics window. See “Establish- 
ing a Graphics Screen” earlier in this chapter. Use the FONT 
function to tell OS-9 what font you want. BASICO9 has three 
fonts installed in Group 200, Buffers 1, 2, and 3. The following 
procedure uses characters in Buffer 3 to draw a border, then 
prints a message using the characters in Buffer 2. It then 
returns to Buffer 3 and asks you to press a key to end the 
procedure. 


PROCEDURE borders 

ODIM T,B,V,J,K:INTEGER 
DDIM RESPONSE:STRINGI[11 
ПВ=199 

OPRINT CHR$(12) 

ORUN GFX2C"FONT",266,3) 
ORUN GFX2C"COLOR",1,2) 
OFOR Т-9 TO 79 

DPRINT CHR$CB2; 

ÜNEXT Т 

OFOR T=1 TO 21 

ORUN GFX2C"CURXY",8,T) 
OPRINT CHR$CB2; CHR$CB)2; 
ORUN GFX2C'"CURXY",78, TD 
OPRINT CHR$CB); CHR$CB2; 
ONEXT T 

ORUN GFX2C"CURXY",8,21) 
OFOR T=8 TO 79 

OPRINT CHR$CB); 

ПМЕХТ Т 

ORUN GFX2C"FONT',288,2) 
ORUN GFX2C"COLOR",0,2) 
ORUN GFX2C™CURXY",45,9) 
OPRINT "А Demonstration" 
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ORUN GFX2C"CURXY",50,10) 
DPRINT "Df А" 

ORUN GFX2C™CURXY", 43,11) 
OPRINT "Buffer Three Border" 
ORUN GFX2C"CURXY",51,12) 
OPRINT "And" 

ORUN GFX2C"CURXY",45,13) 
OPRINT "Buffer Two Text" 
ORUN GFX2C"FONT",280,1) 
ORUN GFX2C"COLOR",3,2) 
ORUN GFX2C"CURXY", 33,15) 
OPRINT "Press А Кеу..."; 
OGET #1,RESPONSE 

OPRINT CHR$C€12) 

DEND 


High-Resolution Quick Reference 


High-resolution functions are all part of the GFX2 module. You 
call them іп а BASICO9 procedure with the following syntax: 


RUN GFX2CLPATH1 ,"FUNCTION'C ,PARAMETERE,...11) 


Path is an optional variable name that tells OS-9 the window in 
which you want the function performed. Function is the high- 
resolution task you want to perform. Parameter is an essential or 
optional value that affects the performance of the function. Dif- 
ferent functions require or permit different numbers of 
parameters. 


The following reference gives a brief description of the high- 
resolution graphics functions. This list is organized by function. 
Following the quick reference is a detailed reference organized 
alphabetically. 
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Window Commands 


Command 


DWSet 


OWSet 


OWEnd 
Select 

DWEnd 
CWArea 


DWProtectSw 


Function 


Establishes a window and sets its location 
on the screen, its size, its background color, 
its foreground color, and its border color. 


Establishes an overlay window on a device 
window that already exists. The function 
also sets the overlay window size, back- 
ground color, foreground color, and border 
color. When using this function, you can 
choose whether or not to save the contents 
of the original screen. 


Deallocates the specified overlay window. 
Selects the window to display. 
Deallocates an established window. 


Changes the size of a window. You can only 
reduce the working area of a window, not 
increase it. 


Lets you unprotect a window and set other 
device windows over it. This might destroy 
the contents of either or both windows. 
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Drawing Commands: 


Command Function © 


Point Sets the pixel under the draw pointer to the 
specified color or to the default color. 

Line Draws a line. 

Box Draws a rectangle outline. 

Bar Draws a filled rectangle. 

Circle Draws a circle. 

Ellipse Draws an ellipse. 

Arc Draws an arc. 

Fill Fills the area of the window the same color 


as the pixe] under the draw pointer. 


Clear Clears the window. 
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Configuring Commands: 


Command 


Color 


DefCol 
Border 
Palette 


Pattern 
Logic 
GCSet 


ScaleSw 
SetDPtr 
PutGC 


Draw 


Function 


Sets any of the foreground, background, or 
border colors. 


Sets palette registers to the default colors. 
Sets the border palette register. 
Changes colors in the palette registers. 


Establishes a buffer from which BASICO9 
gets a pattern for graphics functions. 


Turns on AND, OR, or XOR logic functions 
for draw functions. 


Establishes a buffer from which BASICO9 
gets the graphics cursor. 


Turns scaling on or off. 
Positions the draw pointer. 
Positions the graphics cursor. 


Draws an image from directions provided in 
a draw string. 


Get/Put Commands: 


Command 


Function 


Get 


Put 


DefBuff 
GPLoad 
KillBuff 


Saves a specified portion of a window to a 
buffer. 


Places the image stored in a buffer onto a 
window. 


Defines a buffer for storage. 
Preloads a buffer from a disk file. 


Deallocates a buffer. 
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Text/Cursor Handling Routines: 


Command Function © 

СигНоте Positions the cursor at coordinates 0,0. 

CurXY Positions the cursor at specified 
coordinates. 

ErLine Erases the line under the cursor. 

ErEOLine Erases from the cursor to the end of the 
Jine. 

CurOff Turns the graphics cursor off. 

CurOn Turns the graphics cursor on. 

CurRgt Moves the graphics cursor right one space. 

Bell Sounds the terminal bell. 

CurLft Moves the graphics cursor left, one space. 

CurUp Moves the graphics cursor up one line. © 

CurDwn Moves the graphics cursor down one line. 
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Font Handling Commands: 


Command 


Font 


TCharSw 
BoldSw 
PropSw 
ErEoWndw 


Clear 
CrRtn 


ReVOn 
ReVOff 
UndlnOn 
UndlnOff 
BlnkOn 


BlnkOff 
InsLin 


DelLin 


Function 


Specifies the buffer from which BASICO9 
selects its font characters. 


Selects or deselects transparent characters. 
Selects or deselects bold characters. 
Selects or deselects proportional characters. 


Erases from the graphics cursor to the end 
of the window. 


_Erases window and homes the cursor. 


Performs a carriage return by moving the 
cursor down one line and to the extreme left 
of the window. 


Turns reverse video on. 
Turns reverse video off. 
Turns the underline function on. 
Turns the underline function off. 


Turns blinking characters on (only for hard- 
ware text screens). 


Turns blinking characters off (only for hard- 
ware text screens). 


Inserts a blank line at the graphics cursor 
position. 


Deletes the line at the graphics cursor 
position. 
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ARC Draw an arc 


Syntax: RUN GFX2([path,]“ARC”[,mx,myl, 
xrad,yrad,xcorl,ycorl,xcor2, ycor2) 


Function: Draws an arc at the current or specified draw posi- 
tion with the specified X and Y radius. If you specify the 
same radius for both X and Y, the function draws a circular 
arc, otherwise the arc is elliptical. The X coordinates are in 
the range 0-639. The Y coordinates are in the range 0-191. 


ARC begins drawing from the point on the screen closest to 
the first set of coordinates (xcorl, ycorl). It stops at the рог- 
tion of the screen closest to the second set of coordinates 
(xcor2, ycor2). You can determine on which side of the line 
ARC draws by selecting which set of coordinates is the begin- 
ning and which set is the end. 


Parameters: 


path 
mx, my 
xrad 


yrad 


xcorl ,ycor1 
xcor2,ycor2 


Examples: 


The route to the window in which you want to 
draw an arc. 


The X- and Y-coordinates for the center of the 
arc. If you do not specify mx and my, BASICO9 
uses the current draw pointer position. 


The radius of the arc’s width. 
The radius of the arc’s height. 


The beginning and ending coordinates for an 
imaginary line from which the function draws 
an arc. The line is relative to the center of the 
arc (the center point is at 0,0 for these coordi- 
nates) and extends through the two coordi- 
nates from one edge of the screen to the other. 


RUN GFX2C"ARC",50,100,50,100,50,150) 
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Sample Program: 


This procedure draws a series of diagonally-cut arcs on a graph- 
© ics window screen. 


PROCEDURE arcing 

ODIM MX,MY,XRAD,YRAD,XCOR,YCOR,XCOR2,YCOR2: INTEGER 
ODIM T,X,Y,Z: INTEGER 

OPRINT CHR$C12) 

DFOR T*1 TO 90 STEP 2 

ORUN GFX2C"8RC",318,95,150,T7,0,1,0,1) 

ORUN GFX2C"4RC",324,95,150,T,1,0,1,12 

ONEXT T 


NEC aT 
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ВАК ғша rectangle 


Syntax: RUN GFX2([path,J“BAR”[,xcor1,ycor1],xcor2, 
ycor2) 


Function: Fills a rectangular area defined by two sets of coor- 
dinates. BAR defines its area with an imaginary diagonal 
line from the first set of coordinates to the second set of coor- 
dinates. The X coordinates are in the range 0-639. The Y 
coordinates are in the range 0-191. 


Parameters: 
path The route to the window in which you want to 
draw a bar. 
xcorl,ycor1 The beginning coordinates of the line defining 


the area to fill. If you omit these coordinates, 

BAR uses the draw pointer position. See the 
previous section “The Graphics Cursor and о 
The Draw Pointer.” Also see SETDPTR. 


xcor2,ycor2 The ending coordinates of the line defining the 
area to fill. 


Examples: 
RUN GFX2C"BAR", 200,100) 


RUN GFX2C"BAR",0,0,100,50) 


Sample Program: 
This procedure draws a bar chart on a window screen. 


PROCEDURE DSgraf 

ODIM COLOR,T,X,XCOR! , YCOR1,XCOR2, YCOR2: 

INTEGER; RESPONSE:STRING(1) 

OPRINT CHR$C12) о 
ORUN GFX2C"DEFCOL") 

DCOLDR=13 А XCOR1=1@ N ҮСПР1 «180 

ПХСОЕ2=ХСОЕ1+4й 

DRUN GFX2C"CUROFF") 


е ——————————————— 
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DFOR T=1 TD 18 

DREAD YCOR2 

ОВОМ GFX2c"COLOR™,COLOR) 

ORUN GFX2C"BAR", XCOR1,YCOR1 ,XCOR2,YCOR2) 
ORUN GFX2C"COLOR",7) 

ORUN GFX2C"BOX", XCOR1,YCOR1,XCOR2, YCOR2) 
DCOLOR-COLOR*«1 \ XCOR1=XCOR1+50 А XCOR2-XCOR1*40 
DNEXT T 

DPRINT \ PRINT " 05-9 Sales Chart" 
ORUN GFX2C"B0X",0,0,510,180) 

ПОЕТ #1,RESPONSE 

ORUN GFX2C"CURON") 

OPRINT CHR$(C12) 

BEND 

ODATA 170,150,140,130,110,90,70,60,50,30 
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BELL Ring the terminal Бей 


Syntax: RUN GFX2(“BELL”) 


Function: Rings the terminal’s bell (produces a beep through 
the speaker). 


Parameters: None 


Examples: 
RUN GFX2C*BELL") 
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BLNKON Character blink on 
О BLNKOFF Character blink off 


Syntax: RUN GFX2([path,)“BLNKON”) 
RUN GFX2([path,]“BLNKOFF”) 


Function: Executing BLNKON causes all subsequent charac- 
ters sent to a window on a hardware screen to blink. A hard- 
ware screen is one of the predefined device windows /W1 
through /W7. Executing BLNKOFF cancels a previous blink 
command; characters already blinking continue to do so. Blink 
does not operate on graphics windows. 

Parameters: 


path The route to the window in which you want to 
blink characters. 


о Examples: 
RUN GFX2C"BLNKON") 


RUN GFX2C"BLNKOFF") 


9-55 


BASIC09 Reference 


BOLDSW Switch bold characters on or off 


Syntax: RUN GFX2([path,]“BOLDSW?”,“syiteh”) 


Function: Causes characters to display in either regular or 
bold typeface. The default is regular typeface. BOLD only 
works on graphics screens. 


Parameters: 
path The route to the window in which you want 
bold characters. 
switch Can be either “ON” or “OFF.” If switch is 
“ON,” subsequent characters are bold. If 
switch is “OFF,” subsequent characters are 
not bold. 
Examples: 


RUN GFX2C"BOLDSW", "Ом" 


Sample Program: 


This procedure demonstrates the BOLDSW function by display- 
ing both bold and normal text on a window screen. 


PROCEDURE bold 

ODIM LINE:STRING 

ODIM LETTER:STRING(1] 
ODIM T,J,K,FLAG: INTEGER 
ORUN GFX2C"CLEAR") 
OFLAG=1 

OFOR T=1 TO 8 

QOREAD LINE 

ПЕПЕ J=1 TO LENCLINE) 
QLETTER=MID$CLINE,J,1) 
OIF LETTER«»"!" AND LETTER<>"#" THEN 
OPRINT LETTER; 

DENDIF 

ШЕ LETTER="!" THEN 

OF LAG=FLAG«-1 


#==———— R r ee 
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OIF FLAG»8 THEN 

ORUN GFX2C"BOLDSW" ,"OFF'') 
DELSE 

ORUN GFX2C"BOLDSMH" , "ON" ә 
DENDIF 

DENDIF 

OIF LETTER="#" THEN 

OPRINT CHR$(€34); 

DENDIF 

ОМЕХТ J 

OPRINT 

CNEXT T 

DPRINT N PRINT 

BEND 

DDATA "This is a demonstration of" 
брата "the !Bold! function of" 
ODATA "BASICOS's GFX2 module." 
DDATA "Use the command" 

ODATA "IRUN GFX2(#BOLDSW#,#0N#)!" 
ODATA "to turn boldface on." 

ODATA "Use !RUN GFX2(#BOLDSW#,#0FF#)1" 


ODATA "to turn boldface off" 
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BORDER Set the border color 


Syntax: RUN GFX2([path,]“BORDER”,color) 


Function: Resets the palette register that affects a window’s 
border color (Register 0) to the specified color code. For infor- 
mation on the palette and on screen colors, see “The Palette” 
and Table 9.7 earlier in this chapter. 


Parameters: 
path The route to the window in which you want to 
change border color. 
color One of the current palette colors. Color can be 
either a constant or a variable. 
Examples: 


RUN GFX2C"BORDER", 1) 


Sample Program: 


This procedure lets you select different border colors by 
pressing or (—) to select higher or lower color codes. 
Press (4) to end the procedure. 


PROCEDURE border 
ODIM COLOR: INTEGER 

ODIM KEY:STRING(1] 

Осоовев 

DRUN GFX2C"CLEAR") 

DHHILE KEY«»"q" AND KEY<>"Q" DO 
OGET #1,KEY 

ШЕ KEY-"-" OR KEY="=" THEN 
OCOLOR=COLOR-1 


DENDIF 

DIF KEYs"«" QR KEYs";" THEN 
OCOLOR=COLOR+1 

DENDIF 


9-58 


Displaying Text and Graphics / 9 


OIF COLOR>1S OR COLOR«9 THEN COLOR=8 
DENDIF 

ORUN GFX2C"BORDER" ,COLOR) 

ORUN GFX2C"CURXY",0,0) 

ПЕНРИНТСЕ 

DEND 
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BOX Drawa rectangle 


Syntax: RUN GFX2((path,]“BOX”[,xcor1,ycor1], © 
хсог2,усог2) 


Function: Draws a rectangle. BOX defines its area with ап 
imaginary diagonal line from the first set of coordinates to 
the second set of coordinates. BOX does not reset the draw 
pointer. The X coordinates are in the range 0-639. The Y 
coordinates are in the range 0-191. 


Parameters: 


path The route to the window in which you want to 
draw a box. 


xcor1,ycor1 The beginning coordinates for the line that 
defines the rectangle to drawn. If you omit 
these coordinates, BOX uses the draw pointer 
position. Ө 


xcor2,cor2 The ending coordinates for the line that 
defines the rectangular area to be drawn. 


Examples: 
RUN GFX2C"BUX",200,100) 


RUN GFX2C"B0X",0,0,100,50) 


Sample Program: 


This procedure draws a series of progressively smaller boxes of 
different colors on a window screen. Then, it rapidly changes the 
colors of the boxes to produce a hypnotic effect. 


PROCEDURE hypbox 

ODIM X,Y,X1, Y1, T;R, COLOR: INTEGER 

ODIM KEY:STRING(1] о 
OKEY="" 

OX=18 \Y=6 

ПУ1-185 \Х1=621 

ORUN GFX2C"CLEAR") 


----- eee 
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OFOR Т-й TO 15 

OCOLOR=T 

ORUN GFX2C'"COLOR",3) 

ORUN GFX2C"BOX",X,Y,X1,Y1) 
ORUN GFX2C"COLOR",COLOR) 
ORUN GFX2C"FILL",X-1,Y-1) 
ОХ=Х+18 \Y=Y+6 

OX1=X1-18 \Y1=Y1-6 

ПМЕХТ Т 

OWHILE KEY="" DO 

DRUN INKEYCKEY) 

OFOR Т=1 TO 16 

OR=RNDC65) 

ORUN GFX2C“PALETTE",T,R? 
ONEXT T 

DENDHHILE 

ORUN GFX2C"DEFCOL") 

DEND 
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CIRCLE Draw a circle 


Syntax: RUN GFX2([path,J“CIRCLE”[,xcor,ycor], 
radius) 


Function: Draws a circle with a specified radius. If you specify 
coordinates, CIRCLE uses them for the center point. Other- 
wise, CIRCLE locates the center of the circle at the current 
draw pointer position. See “The Graphics Cursor and the 
Draw Pointer” earlier in this section. Also see SETDPTR. 


Parameters: 
path The route to the window in which you want to 
draw a circle. 
xcor,ycor The coordinates for the circle’s center. The X 
coordinates are in the range 0-639. The Y 
coordinates are in the range 0-191. 
radius The radius of the circle. 
Examples: 


RUN GFX2C"CIRCLE",100) 


RUN GFX2C"CIRCLE",106,206,50) 
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Sample Program: 


This procedure uses circles to produce a geometric design. 


PROCEDURE ciraround 

DDIM T,X,Y:INTEGER 

OPRINT CHR$C12) 

ПРОМ GFX2C"COLOR",1,2) 

CFOR T=1 TO 138 
DX2150*SINCT2*320 
DY=25*CDSCT)+96 

OCRUN GFX2C"CIRCLE",X,Y,1090) 
DNEXT T : 

ОВОМ GFX2C"COLOR",3,2) 

OFOR T=1 TO 45 
0Х=150+51МСТ) +320 
ПҮ-25»%С05(Т72%96 

ORUN GFX2C"CIRCLE",X,Y,180) 
ONEXT Т 

OEND 
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CLE AR Clear the screen 
Q 


Syntax: RUN GFX2({path,]}“CLEAR”) 


Function: Clears the current working area of a window. 
CLEAR does not change the location of the draw pointer but 
does set the text cursor and graphics cursor location to the 
upper left corner of the window. 

Parameters: 


path The route to the window you want to clear. 


Examples: 
RUN GFX2C"CLEAR") 
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COLOR, Set screen colors 


Q Syntax: RUN GFX2([path,] COLOR", 
foreground], background]l[, border] 


Function: Changes any of the foreground, background, or the 
border colors. COLOR does not change the draw pointer 


position. 
Parameters: 

path The route to the window in which you want to 
change one or more screen or text colors. 

foreground The register number for the foreground 
palette. 

background The register number for the background 
palette. 

© border The register number for the border palette. 


Changing the border color for any window on a 
screen, changes the border color for all win- 
dows on the same screen. 


Examples: 


RUN GFX2C"COLOR",1) 
RUN GFX2C"COLOR",1,2) 
RUN GFX2C"COLOR",1,2,1) 
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Sample Program: 


This procedure fills a window screen with multicolored filled 


circles. © 


PROCEDURE bubbles 

DDIM Х,Ү,М,2,Т:ІМТЕСЕК 
02=1 

ORUN GFX2C"COLOR",1,0,0) 
ORUN GFX2C"CLEAR") 

DFOR T=1 TO 80 
OX=RNDC635)+4 
DY*RNDC1852*5 
OW=RNDCS8+S) 

02=2+1 

ШЕ 2*3 THEN 241 

DENDIF 

ORUN GFX2c™"CIRCLE",X,Y,W) 
ORUN GFX2C'COLOR",2) 
ORUN GFX2C"FILL",X,Y) 
ОМЕХТ Т 

ORUN GFX2C"COLOR",3,2,2) 


DEND о 
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CRRTN Carriage return 
© 


Syntax: RUN СЕХ2(рай, “СЕВТК”) 


Function: Causes BASIC09 to send a carriage return to а 
window. The cursor moves down one line and to the extreme 
left of the window. 


Parameters: 
path The route to the window in which you want a 
carriage return. 
Examples: 


RUN GFX2C™CRRTN") 
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CURDWN Cursor down 


Syntax: RUN GFX2([path,]"CURDWN") ° 


Function: Moves the cursor down one text line. The X-coordi- 
nate, or column position, remains the same. 


Parameters: 
path The route to the window in which you want to 
move the cursor. 
Examples: 


RUN GFX2C"CURDWN") 
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CURHOME Cursor home 
Q 


Syntax: RUN GEX2([path,]“CURHOME”) 


Function: Moves the text cursor to the top left corner of the 


screen. 
Parameters: 
path The route to the window where you want to 
reset the cursor 
Examples: 


RUN GFX2C"CURHÜME"2 
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CURLFT Move cursor left 


Syntax: RUN GFX2([path,]“CURLFT”) 


Function: Moves the cursor one character to the left. 


Parameters: 
path The route to the window where you want to 
move the cursor. 
Examples: 


RUN GFX2C"CURLFT") 
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CUROFF Turn off cursor 


Syntax: RUN GFX2([path,] CUROFF") 


Function: Makes the cursor invisible. 


Parameters: 
path The route to the window in which you want to 
turn the cursor off. 
Examples: 


RUN GFX2C"CUROFF") 
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CURON Turn on cursor 


Syntax: RUN GFX2([path,]“CURON”) 


Function: Makes the text cursor visible. 


Parameters: 
path The route to the window in which you want to 
turn the cursor on. 
Examples: 


RUN GFX2C™CURON") 
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CURRGT Move cursor right 
Q 


Syntax: RUN СЕХ2( Фрай ДСОККСТ”) 


Function: Moves the cursor опе character to the right. 


Parameters: 
path The route to the window in which you want to 
move the cursor. 
Examples: 


RUN GFX2C"CURRGT") 
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CURUP Move cursor up 


Syntax: RUN GFX2([path,] CURUP") 


Function: Moves the cursor up one line. 


Parameters: 
path The route to the window in which you want to 
move the cursor. 
Examples: 


RUN GFX2C"CURUP") 
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CURXY Set cursor position 


Syntax: RUN GFX2([path,]“CURXY”,column,row) 


Function: Moves the cursor to the specified column and row 
position. The column and row coordinates are relative to the 
window’s current character width and depth. 


Parameters: 
path The route to the window in which you want to 
move the cursor. 
column The column (horizontal) position for the 
cursor. 
row The row (vertical) position for the cursor. 


© Examples: 
RUN GFX2C"CURXY",10,10) 
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CWAREA Change working area 
о 


Syntax: RUN GFX2([path,]“CWAREA”,xcor,ycor,sizex, 
sizey) 


Function: Restricts output in the window to the specified area. 
The new area must be the same or smaller than the previous 
working area. When a window’s working area is changed, 
OS-9 scales graphic and text coordinates and graphic images 
to the new proportions. Text characters remain the same size. 


Parameters: 
path The route to the window in which you want to 
change the working area. 
xcor,ycor The beginning coordinates (the upper left cor- 
ner) for the new working area, relative to the 
original window. The coordinates are based on 
the character column and row size of the origi- © 
nal window. 
Sizex Designates the number of columns in the new 
working area. 
sizey The number of lines available in the new 
working area. 
Examples: 


RUN GFX2C"CHAREA",10,0,40,10) 
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Sample Program: 


This procedure makes the working area in a window progres- 
3 sively smaller, filling each area with a different color. It then 
о changes the areas’ colors rapidly to produce а hypnotic effect. 


PROCEDURE hypnobox 
ODIM X,Y,X1,Y1,T,R, COLOR: INTEGER 
ODIM KEY:STRING([1] 
ОКЕҮ="" 
ОХ =3 \Ү=1 
HX1=80-CX+X) \¥1224-CY+Y) 
ПЕПЕ T=0 TO 18 
ОВОМ GFX2C"COLDR",3,T) 
ОВОМ GFX2C"CLEAR") 
ORUN GFX2C"CHAREA",X,Y,X1,Y12 
DX=X+3 \Ү=Ү+1 
DX1=80-CX+X) NY1=24-CY+Y) 
DNEXT T 
ORUN GFX2C"COLOR",3,2) 
DWHILE KEY="" DO 
ORUN INKEYCKEY) 
DFOR Т=1 TO 16 
Q DR=RNDC65) 
ORUN GFX2C"PALETTE",T,R) 
DNEXT T 
OENDWHILE 
DRUN GFX2C"DEFCOL") 
ORUN GFX2C"CHAREA",0,0,80,24) 
DEND 
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DEFBUFF Define GET/PUT buffer 
© 


Syntax: RUN GFX2(“DEFBUFF”, group, bufter,size) 


Function: Defines a buffer for GET/PUT operations. 


When you define a buffer, you do so by group number and 
buffer number. Each group you define allocates eight kilobytes 
of memory. The system needs 80 bytes of the block for over- 
head, leaving 8162 bytes free. Within the group, you can allo- 
cate one or more buffers. Select a group number and a buffer 
number as indicated in the following “Parameters” section. 
Use these numbers in future references to the buffer. 


A GET/PUT buffer remains allocated until you use the KILL- 
BUFF function to remove it from your system’s memory. For 
more information on Get/Put buffers, see KILLBUFF, PUT, 
GET, and GPLOAD. 


Parameters: Q 
group А number you select in the range 1-199. 
buffer А number (in the range 1-255) that you 
assign to the buffer you create. 
size The size of the buffer, in the range of 1 to 
8192 bytes, depending on available memory in 
its group. 
Notes: 


One method of selecting а group number is to use SYSCALL 
and the Get ID (103F 0C) system call to obtain your user's 
process ID number. Then, use this ID number as a group 
number. Using this system for all GET/PUT buffer operations, 
ensures against group number overlapping. See the SYS- 
CALL command for more information. о 


Examples: 
RUN GFX2C"DEFBUFF",1,S,4000H0) 
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DEFCOL Set default colors 


Syntax: RUN GFX2([path,]“DEFCOL”) 


Function: Sets the palette registers back to their default val- 
ues. The type of monitor you have determines the actual hues. 
See “The Palette” and Table 9.7 earlier in this section. 


Parameters: 
path The route to the window in which you want to 
restore the original palette registers. 
Examples: 


RUN GFX2C"DEFCOL") 
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DE LLIN Delete current line of text 


Syntax: | RUN GFX2([path,]“DELLIN”) 


Function: Deletes the line on which the cursor is resting and 
closes the space. DELLIN operates on both text and graphics 
Screens. 


Parameters: 
path The route to the window in which you want to 
delete a line. 
Examples: 


RUN GFX2C"DELLIN") 


Sample Program: 


This procedure draws a series of various colored concentric cir- 
cles, then produces a lemon shape by removing slices of the circle 
with DELLIN. 


PROCEDURE slice 

DDIM X,Y,R,T,COLOR: INTEGER 
ORUN GFX2C"CLEAR") 
OCOLOR=86 

0х =320 

Пу-96 

OFOR Т=185 TO 10 STEP -18 
ORUN GFX2C"CIRCLE",X,Y,T) 
ONEXT T 

OFOR T=148 TO 320 STEP 16 
ORUN GFX2C"COLOR", COLOR) 
ORUN GFX2C"FILL",T,96) 
OCOLOR=COLOR+1 

ОМЕХТ T 

ORUN GFX2C"CURXY",0,8) 
OFOR T=1 TO 8 

ORUN GFX2C"DELLIN") 


UNEXT T 
ORUN GFX2C"COLOR",3,2) 
DEND 


————————M—  ———— ЧИ 
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DRAW Draw a polyline figure 


Syntax: RUN GFX2([path,]“DRAW”,option list) 


Function: Draws іп the directions specified, and for Ше 915- 
tances specified, in an option list. The option list is a string of 
characters and numbers. You can separate options with spaces 
or commas. You must include commas between the two coordi- 
nates for the B and О options. 


Parameters: 


path 


option list 


© Options: 


Мпит 
Snum 
Enum 
Wnum 
NEnum 
NWnum 
SEnum 
SWnum 
Aval 


Uxcor,ycor 


The route to the window in which you want to 
draw. 


A string consisting of one or more of the fol- 
lowing options: 


draws north (up) num units. 

draws south (down) num units. 

draws east (right) num units. 

draws west (left) num units. 

draws northeast (up and right) num units. 
draws northwest (up and left) num units. 
draws southeast (down and right) num units. 
draws southwest (down and left) num units. 
rotates the draw axis. Possible values are: 


0 = normal 

1 = 90 degrees 
2 = 180 дергеез 
3 = 270 degrees 


draws a relative vector to the specified coordi- 
nates. Xcor and ycor are relative to the cur- 
rent draw pointer position. The draw pointer 
location does not change. Xcor and ycor must 
be separated by a comma. 
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Bxcor,ycor 


Examples: 


produces a blank line (moves the cursor but 
does not draw). The xcor and ycor coordinates 
are relative to the current draw pointer loca- 
tion. If you specify relative coordinates located 
offscreen, you cannot see subsequent lines. 


RUN GFX2C"™DRAW","N10,E18,518,W10") 


Sample Program: 


PROCEDURE drawing 


ODIM T,X,Y,CO 
OCOLOR=6 
ORUN GFX2c"CL 


LOR: INTEGER 


EAR") 


OFOR T=1 TO 96 STEP 6 


DRUN GFX2C™SE 
DFOR Y-8 TO 3 
OCOLOR=MODCY, 


TDPTR", 328,96) 


2) 


ORUN GFX2eC"COLOR",COLOR) 


OFOR X-1 TO 4 
DREAD DR$ 
ÜDR$-"A"«STR$ 
ORUN GFX2C"DR 
ПМЕХТ X 

DNEXT Y 
DRESTORE 
DNEXT T 

ORUN свхас"со 
DEND 

DODATA МЕ 
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DWE ND Device window end 


Syntax: RUN GFX2([path,]“DWEND”) 


Function: Deallocates the device window you initialized with 
DWSET and INIZ. If the window deallocated is the last device 
window on the screen, ВАЅІСО9 returns the screen memory to 
the system. DWEND automatically positions you in the next 
device window, a result similar to pressing (CLEAR). You can 
use this function with DWSET to redefine a device window to 
a different type. 


Parameters: 
path The path number of the window you wish to 
end. Path can be a constant or variable. 
Examples: 


RUN GFX2C"DWEND") 
RUN GFX2CPATH, "DWEND"') 
RUN GFX2€3,"DWEND") 


Sample Program: 


From /TERM, this procedure temporarily opens a path to 
Window 3, displays the new window, draws a design, then 
returns to the /TERM screen and closes the path. 


PROCEDURE decorate 
ODIM PATH,T,Y: INTEGER 

DOPEN Ф#РАТН,“/ МЗ": WRITE 

ORUN GFX2CPATH,"DISET",7,0,0,80,24,3,2,2) 
ORUN GFX2CPATH,"SELECT") 

DY*1 

ПРИМ GFX2CPATH,"COLOR",3,2) 

DFOR Т=1 TO 185 STEP 3 

ПҮ=Ү+1 

ПРИМ GFX2CPATH,"ELLIPSE",320,96,T, YO 
DNEXT T 

ORUN GFX2CPATH,"COLOR",1,2) 

ПЕПЕ Т=185 TO 1 STEP -6 


n——— 'ÀÁ A . ),1|ODOHESSUMIIIÁL LIAUDLSLILIZILSGLLEGZAGIGULATIEEELAELOLALEAZEEZZZ£ 
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ORUN GFX2CPATH,"ELLIPSE",320,96,T, Y) 
OIF INTCT/32*T/3 THEN 

DY=Y+1 

DENDIF 

DNEXT T 

ОКОМ GFX2C1,"SELECT") 

ORUN GFX2CPATH,"DMEND") 

DCLOSE #РАТН 

DEND 
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DWPROTSW Device window protect switch 


Syntax: RUN GFX2([path,]“DWPROTSW”,“switch') 


Function: Lets you unprotect one device window and set other 
device windows on top of it. 


OS-9 on the Color Computer 3 normally uses a protected win- 
dowing system that does not allow window devices to overlap. 
Removing the window protection with DWPROTSW lets one 
device window exist on the same screen area as another win- 
dow device. Because this might destroy the contents of an 
unprotected window, you need to use care with this function. 


Parameters: 
path The route to the window you want to 
unprotect. 
switch Either OFF to turn off protection, or ON to 
turn on protection. The default is ON. 
Examples: 


RUN GFX2C"DWPROTSW", OFF) 
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DWSET Device window set 
о 


Syntax: RUN GFX2([path,]“DWSET'”,format,xcor,ycor, 
width, length, foreground, background, border) 


Function: Defines a device window. Normally, you first open a 
path to a window, then use DWSET to set the window format, 
location, size, and colors. 


Parameters: 

path The route to the window you are defining. 

format The code for the type of screen you want to 
establish. See Table 9.6 at the beginning of 
this section for the formats available. 

xcor,ycor The coordinates (character column and row) of 
the upper left corner of the screen you want to 
create. Q 

width The width (in characters) of the new window. 

length The depth (in lines) of the new window. 

foreground The code for the window’s foreground color. 


background The code for the window’s background color. 


border The code for the window’s border color. 


Examples: 
RUN GFX2C"DHSET",06,50,100,50,10,20,12,9) 


Sample Program: 


This procedure opens a path to Window 3, uses DWSET to define 

the new window, displays the new window, and draws a graphic 
lemon shape. It then uses SELECT to return to the /TERM win- о 
dow or screen, deallocates Window 3, and closes Ше path. 
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PROCEDURE lemon 

ODIM PATH,T,X,Y: INTEGER 

DOPEN #жРАТН,"/ МЗ": WRITE 

ORUN GFX2CPATH,"DWSET",7,0,8,88,24,3,2,2) 
ORUN GFX2CPATH," SELECT") 

DY=1 

ORUN GFX2CPATH,"COLOR",0,2) 

OFOR T=1 TO 185 STEP 3 

DY=Y+1 

ОРОМ GFX2CPATH,"ELLIPSE",328,96,T,Y) 
ПМЕХТ Т 

ПХ=Т 

ORUN GFX2CPATH,"COLOR",3,2) 

OFOR Т=62 TO 1 STEP -3 

ORUN GFX2CPATH,"ELLIPSE",328,96,X, T) 
DIF INTCT/3)=T/3 THEN 

OX=X+1 

DENDIF 

DNEXT T 

ORUN GFX2C1," SELECT") 

ORUN GFX2CPATH,"DWEND") 

OCLOSE #PATH 

ПЕМО 
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ELLIP SE Draw an ellipse 


Syntax: RUN GFX2([path,]“ELLIPSE”[,xcor,ycor], 
xrad,yrad) 


Function: Draws an ellipse with the center at the current 
draw pointer position or at the specified X,Y coordinates. The 
X coordinates are in the range 0-639. The Y coordinates are 
in the range 0-191. 


Parameters: 
path The route to the window in which you want to 
draw. 


xcor,ycor The coordinates for the ellipse’s center. If you 
: omit these coordinates, ELLIPSE uses Ше 
current draw pointer position. 


xrad,yrad The radii of the ellipse’s length and height. 


Examples: 
RUN GFX2C"ELLIPSE", 100,50) 
RUN GFX2C"ELLIPSE",108,125,100,10) 


Sample Program: 


This program uses ELLIPSE to draw a graphic design shaped 
like a Christmas tree decoration. 


PROCEDURE xbulb 
DDIM T,Y:INTEGER 

DY=1 

ORUN GFX2C"COLOR",3,29) 

ORUN GFX2C"CLEAR") 

DFOR T=1 ТО 188 STEP 3 

DY=Y+1 

DRUN GFX2C"ELLIPSE",320,96,T,Y) 
DNEXT T 

ОКОМ GFX2C"CDLDR",1,2) 

ПЕПЕ Те180 ТО 1 STEP -6 
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ORUN GFX2C"ELLIPSE",320,96,T, YO 
OIF INTCT/32*T/3 THEN 

Пузу+1 

OENDIF 

ONEXT T 

URUN GFX2C"COLOR",3,2) 

OEND 
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ERE OLINE Erase to end of line 
о 


Syntax: RUN GFX2([path,]“EREOLINE”) 


Function: Deletes the portion of the current line from the cur- 
sor to the right side of the window. 


Parameters: 
path The route to the window in which you want to 
erase a portion of a line. 
Examples: 


RUN GFX2C"EREOLINE™) 


Sample Program: 


This procedure uses EREOLINE to produce a series of steps © 
down the screen. 


PROCEDURE steps 

UDIM T,J,K: INTEGER 
ORUN GFX2C"COLOR",2,3) 
ОРОМ GFX2C"CLEAR") 
ORUN GFX2C"COLDR",3,2) 
OFOR T=@ TO 22 

DJsT*3 

ORUN GFX2C"CURXY",J, TO 
ORUN GFX2C"EREOLINE") 
DNEXT T 
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ERE OWNDW Erase to end of window 
о 


Syntax: RUN GFX2([path,}“EREOWNDW”) 


Function: Deletes all the lines in a window from the line on 
which the cursor is positioned to the bottom of the window. 


Parameters: 
path The route to the window in which you want to 
delete screen contents. 
Examples: 


RUN GFX2C"EREOWNDW") 
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ERLINE Delete current line of text 


Syntax: RUN GFX2([path,]“ERLINE”) 


Function: Deletes the current line (on which the cursor is rest- 
ing) from the window but does not close the space. 


Parameters: 
path The route to the window in which you want to 
remove the contents of a screen line. 
Examples: 


RUN GFX2C"ERLINE") 


Sample Program: 


This procedure draws a bull's-eye design, then slices it о 
with the ERLINE function. 


PROCEDURE cut 

DDIM X,Y,R,T,COLDR: INTEGER 
OCOLOR=8 

0Х =320 

ПҮ«96 

ORUN GFX2C"CLEAR") 
OCOLOR=8 

OFOR T2185 TO 10 STEP -16 
ОКОМ GFX2C"CIRCLE",X,Y,TO 
DNEXT T 

ОРОК Т-140 TO 320 STEP 10 


ORUN GFX2C"COLOR", COLOR) 

ORUN GFX2C"FILL",T,96) 

DCOLOR=CDLOR+1 

DNEXT T 

OFOR T=2 TO 22 STEP 2 

ORUN GFX2C"CURXY",0,T) о 
DRUN GFX2C"ERLINE") 

DNEXT T 

DRUN GFX2C"COLOR",3,2) 

DEND 


((€——— —————— НЕ 
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FILL Fin (paint) window 


Syntax: RUN GFX2([path,]}“FILL”,[xcor,ycor]) 


Function: Paints an area with the current foreground color. 


Paint fills the portion of the window that is the same color as 
the pixel under the draw pointer. 


Parameters: 
path The route to the window in which you want to 
use the FILL function. 
хсоғ,усог Ате optional Х- and Y-coordinates to герові- 
tion the draw pointer before FILL begins. If 
you omit these coordinates, BASIC09 uses the 
current draw position. 
Examples: 


RUN GFX2C"FILL",100,1080) 


Sample Program: 


This procedure draws and fills 100 boxes on a window. 


PROCEDURE colorbox 

DDIM A,B,C,D,T,COLOR: INTEGER 
OCOLOR=8 

ORUN GFX2C"CLEAR") 

OFOR Тз1 TO 10% 
OA=RNDCS68) 

OB=RNDC151) 

DC=A+RNDC80) 

DD=B+RNDC40) 
DCOLDR=CDLDR+1 

ORUN GFX2("COLOR", COLOR) 
ORUN GFX2C"BOX",A,B,C,D) 
ORUN GFX2C"FILL",A+1,B+1) 
ПМЕХТ Т 
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FONT Define font buffer 


Syntax: RUN GFX2([path,]“FONT”,group, buffer) 


Function: Defines a buffer from which BASICO9 gets the char- 
acter font (style) for the current screen. Use the text/cursor 
handling functions referenced in this section with the font you 
load. When you merge the Stdfonts file in your SYS directory 
with a graphics window, you have the choice of three fonts 
from Buffers 1, 2, and 3, located in Group 200. You can also 
create your own fonts. FONT works only on graphics screen. 
See “Using Fonts” earlier in this chapter. 


You must load the font you want to use into the defined buffer 
before using FONT. 


Parameters: 
path The route to the window in which you want to 
use an alternate font. 
group The group number of the buffer containing the 
font to use. 
buffer The number of the buffer containing the font 
to use. 
Examples: 


RUN GFX2C"FONT", 208,29 
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СС БЕТ set graphics cursor 


Syntax: RUN GFX2(“GCSET”,group,buffer) 


Function: Defines a buffer from which BASIC09 gets the 
graphics cursor. This lets you define your own cursor for 
graphics operations. To turn the graphics cursor off, use a 
group Number 0. You must execute this command to display a 
graphics cursor. Before using GCSET, you must merge the 
Stdcur file in the SYS directory to the window. 


Parameters: 


group The group number of the buffer containing the 
cursor image to use. See OS-9 Windowing 
System for information on the group to use. 


buffer The number of the buffer that contains the 
cursor image to use. See OS-9 Windowing 
System for information on the buffer to use. 


Examples: 
RUN GFX2C"GCSET",1,5) 
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GET Get a block from the window 


Syntax: RUN GFX2([path,]“GET”,group,buffer,xceor, 
ycor,xsize, ysize) 


Function: Saves a window area Get/Put buffer. Use PUT to 
replace the image to the window. If you did not previously 
define the buffer, BASICO9 creates it. If you store the window 
data in a predefined buffer, the data must be the same size or 
smaller than the buffer. If not, BASICO9 truncates the data to 
the size of the buffer. (Also see PUT and DEFBUFF.) 


Parameters: 
path The route to the window where you want to 
save an image. 
group The group number of the Get buffer (1-199). 
buffer The Get buffer number (1-255). 
xcor,ycor The X- and Y-coordinates of the upper left cor- 
ner of the window image to save. The X- 
coordinates are in the range 0-639. The Y- 
coordinates are in the range 0-191. 
xsize The horizontal size of the window section to 
save. 
ysize The vertical size of the window section to save. 
Examples: 


RUN GFX2C"GET",1,5,0,0,10,15) 
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This procedure draws a character, loads it into a buffer, then 
repeatedly replaces the character to the window screen using 
PUT. Each new image erases the previous image, giving an 


impression of animation. 


PROCEDURE puttdown 

ODIM T,J: INTEGER 

ORUN GFX2C"CLEAR") 

ORUN GFX2C"ELLIPSE",320,96,12,4) 
ORUN GFX2C"CIRCLE",320,90,5) 
ORUN GFX2C"COLOR'*,12 

ORUN GFXeC"FILL'",328,96) 

ORUN GFX2C'"COLOR",3) 

ORUN GFX8C"FILL",320,998) 

ORUN GFX2C"BAR",305,108,335,104) 
ОКОМ GFX2¢"GET",1,1,288,85,58,23) 
ORUN GFX2C"GET",1,2,1,1,58,23) 
ORUN GFX2C"PUT",1,2,288,85) 
0Ј=10 

DFOR Т=20 TO 559 STEP 6 

0Ј= Ј+2 

ORUN GFX2C"PUT",1,1,T,J) 

ОМЕХТ Т 

ОВОМ GFX2C"KILLBUFF",1,1) 

ORUN GFX2C"CURON") 

ÜEND 
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GPLOAD Load data into Get/Put buffer 


Syntax: RUN GFX2(“GPLOAD”, group, buffer,format, 
xdim,ydim, size) 


Function: Loads a buffer with image data that PUTBLK can 
use for window displays. If the Get/Put buffer is not created, 
BASICO9 creates it. If it is defined, the size of the data should 
not be larger than the buffer. 


Parameters: 
group The group number you select, in the range 1- 
199, to let you group buffers. 
buffer A number in the range 1-255 that you assign 
to the buffer you create. 
format The type code of the screen format. (See Table 
9.4.) 
хаіт Тһе X (horizontal) dimension of the stored 
block. 
ydim Тһе Y (уегиса!) dimension of the stored block. 
size The size of the buffer in bytes. А buffer size 
can be in the range of 1 to 8 kilobytes, 
depending on available memory. 
Examples: 


RUN GFX2C"DEFBUFF",1,5,06,100,50,5000) 
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IN SLIN Insert line 


Syntax: RUN GFX2([path,]"INSLIN") 


Function: Moves the window lines at and below the cursor 
down one line. 


Parameters: 
path The route to the window in which you want a 
blank line. 
Examples: 


RUN GFX2C" INSLIN") 


Sample Program: 


This procedure draws a round face on the screen, then uses 
INSLIN and DELLIN to make a mouth appear to move. 


PROCEDURE chomp 

ODIM X,Y,T:INTEGER 

ODIM RESPONSE:STRING(11 
ОВЕЅРОМЅЕ="" 

ORUN GFX2C'"CLEAR") 

ПЕОМ GFX2C"CIRCLE",320,96,80) 
ORUN GFX2C"COLOR",9,2) 


ОВОМ GFX2C"FILL", 328,96) 


ORUN GFX2C"COLOR",2) 


ORUN GFX2C"CIRCLE", 285 ,80,12) 
ORUN GFX2C"CIRCLE",355,80,12) 
DRUN GFX2C"FILL",285,80) 

ORUN GFX2C"FILL",355,80) 

ПРИМ GFX2C"CIRCLE",315,96,3) 
ORUN GFX2C"CIRCLE",325,96,3) 
ORUN GFX2C"ARC",320,92,14,3,3,1,1, 12 
ORUN GFX2C"COLOR",3,2) 

ORUN GFX2C"CIRCLE",289,77,3) 

ORUN GFX2C"CIRCLE",359,77,3) 

ORUN GFX2C"CURXY",0,14) 


ПВЕРЕАТ 


——— llJlƏi——— Ñ D  .ÁÀ—c — -—— 
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ОВОМ GFX2C" INSLIN") 
OFOR Х=1 TO 100 
DNEXT X 

ORUN GFX2C"DELLIN") 
ОВОМ INKEYCRESPONSE) 
DUNTIL RESPONSE>"" 
DEND 
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KILLBUFF Deallocate Get/Put buffer 


Syntax: RUN GFX2(“KILLBUFF”, group, buffer) 


Deallocates the indicated Get/Put buffer. You select group and 
buffer numbers when you define a buffer or when you load or 
get a window image. For more information on Get/Put buffers, 
see DEFBUFF, PUT, GET, and GPLOAD. 


Parameters: 
group The group number of the buffer you want to 
deallocate, in the range 1-199. Buffer Group 
Numbers 0 and 200-255 are reserved for OS-9 
system use. 
buffer The number of the buffer to deallocate, in the 
range 1-255. 


© Examples: 
RUN GFX2C"KILLBUFF",1,5) 


Sample Program: 


This procedure draws a figure on a window screen, loads it 
into a buffer, then repeatedly places it in new locations on the 
screen. Each new PUT erases the previous image. 


PROCEDURE putdown 
DDIM X,Y,T,J:INTEGER 
ORUN GFX2C"CUROFF') 
ORUN GFX2C"CLEAR") 
ORUN GFX2C"ELLIPSE",320,96,12,4) 
ORUN GFX2C"CIRCLE",320,90,5) 
ORUN GFX2C"COLOR",1) 
ORUN GFX2C"FILL",320,96) 

ORUN GFX2C"COLOR",3) 
о ORUN GFX2C"FILL", 326,98) 
ORUN GFX2C"BAR",305,198,335,1084) 
ORUN GFX2C'"GET",1,1,288,85,50,23) 
ORUN GFX2C"GET",1,2,1,1,58,23) 
ОКОМ GFX2C"PUT",1,2,288,85) 
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0Ј=10 

DFOR Т=20 TO 559 STEP 6 
QJ=J+2 

ORUN GFX2C"PUT",1,1,T,J) 
DNEXT Т 

ORUN GFX8eC"KILLBUFF'",1,12 
ORUN GFX2C"CURON") 

DEND 
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LINE Draw a line 
Q 


Syntax: RUN GFX2([path,]"LINE"[,xcor1,ycorl],xcor2, 
усог2) 


Function: Draws а line іп опе of the following ways: 


е From the current draw pointer to the specified X- and Y- 
coordinates. 


@ From the specified beginning X- and Y-coordinates to 
the specified ending X- and Y-coordinates. 


Parameters: 


path Тһе route to the window in which you want to 
draw a line. 


хсог1,усоғ1 The optional beginning Х- and Y-coordinates 


© for the line. 


xcor2,ycor2 Тһе ending Х- and Y-coordinates for the line. 


Examples: 
RUN GFX2C"LINE",192,128) 
RUN GFX2C"LINE",0,0,192,128) 


Sample Program: 


This procedure draws a sine wave of vertical lines across a 
window. 


PROCEDURE waves 

ODIM A,X,Y,2: INTEGER 

ОСА Сей 

ОА з1й0 

ОРОМ GFX2C"CLEAR") 
о ORUN GFX2C"COLOR",3,2) 

OFOR X=@ TO 638 STEP 1 

OCALC=CALC+.@5S 

OY=A-SINCCALC)#1S 

П2=Ү+25 


 ———————--——-—-— 
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ОВОМ GFX2C™LINE",X,Y,X,2) 
ПМЕХТ X 
DEND 
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LOGIC Perform logic function 


Syntax: RUN GFX2(“LOGIC”,“function”) 


Function: Causes BASICO9 to perform the specified logic func- 
tion on all data bits used by subsequent drawing functions. 


Once set, the logic function remains in effect until you turn 
LOGIC off. 


Parameters: 
function can be one of the following logical functions: 
OFF  — по logic 
AND  — performs AND logic 
OR — performs OR logic 
XOR — performs XOR logic 
Examples: 


RUN GFX2C"LOGIC" , "AND") 
RUN GFX2C"LOGIC" ,"XOR") 


Sample Program: 


This procedure uses LOGIC to draw a horizontal bar across a 
background of multicolored vertical bars. Using XOR logic, the 
procedure causes the horizontal bar to change the color of each 
vertical bar. 


PROCEDURE logic 

DDIM 4,2,T,X,Y,COLOR: INTEGER 
ORUN GFX2C"LOGIC","OFF'™) 
ORUN GFX2C"CLEAR") 

OCOLOR=6 

OFOR T=@ TO 619 STEP 28 
OCOLOR=COLOR+1 

ORUN GFX2c"COLOR", COLOR) 
ORUN GFX2C"BAR",T,B,T+20,190) 
ОМЕХТ Т 

ORUN GFX2C"COLOR",3,2) 

ОРОМ GFX2C"LOGIC" , "XOR") 


—————————————————————————————————— 
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DFOR Т=1 TO 10 

ORUN GFX2C"BAR",@,89,639,112) 
DNEXT T 

ORUN GFX2C"LOGIC","OFF") 
DEND 
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OWSET Establish an overlay window 


Syntax: RUN GFX2([path,] 'OWSET",save switch,xpos, 


ypos,xsize,ysize,foreground,background) 


Function: Creates an overlay window on a previously existing 
device window. Reconfigures the current device window paths 
to use a new area of the screen as the current device window. 


Parameters: 


path 


save switch 


Q хров 
уроз 


хвіге 

ysize 
foreground 
background 


Examples: 


The route to the window in which you want to 
set an overlay. 


Either 0 or 1. A value of 0 tells BASICO9 not 
to save the overlaid area. A value of 1 tells 
ВА51С09 to save the overlaid area and restore 
it when the new window closes. 


The character column in which to start the 
new window (upper left corner). 


The character row in which to start the new 
window (upper left corner). 


The width of the new window in characters. 
The depth of the new window in rows. 
The foreground color of the new window. 


The background color of the new window. 


RUN ОҒХ2С"ПЫ5ЕТ",00,44,10,32,8,00,06) 


Sample Program: 


This procedure creates six progressively smaller overlay win- 
dows, labeling each. It then waits for you to press a key, after 


which it erases all the windows and leaves the original window 


intact. 
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PROCEDURE overwin 

ODIM X,Y,X1,Y1,T,J, B,L,PLACE: INTEGER 
ODIM RESPONSE:STRING[1] 

ПХ=@ \Ү=0 

0X1=88 \Y1=24 

OPLACE=33 

OFOR T=1 TO 6 

OIF T=2 OR T=6 THEN 

ОВ=3 

DELSE В=2 

DENDIF 

ORUN GFX2C"DWSET",1,X,Y, X1, Y1, B, TO 
OX=X+6 \Y=Y+2 

OX1=X1-12 \Y1=Y1-4 

ПЕОВ J=1 TO 5 

OPRINT TABCPLACE); “Overlay Screen "; T 
ПМЕХТ J 

OPLACE=PLACE-6 

ONEXT T 

OPRINT "Press A Key..."; 

ПОЕТ #1,RESPONSE 

OFOR Т=1 TO 6 

ORUN GFX2C"OWEND") 

ПМЕХТ Т 

ОЕМр 
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РАТЕТТЕ Set color for palette registers 


Syntax: RUN GFX2([path,] " PALETTE",register,color) 


Function: Sets palette colors. Lets you install any of the Color 
Computer's 64 colors in the palette for use with text and 
graphics. 


Parameters: 
path The route to the window where you want to 
change palette colors. 
register Тһе number of the register in which you want 
to install a new color. 
color The code of the new color you want to install. 
Examples: 


RUN GFX2C"PALETTE",13,32) 


Sample Program: 


This procedure draws a series of bars and circles, then repeat- 
edly changes their colors using PALETTE. 


PROCEDURE palette 

UDIM T,K,J,X,Y,COLOR: INTEGER 
ODIM RESPONSE:STRING[1] 

DRUN GFX2C"COLOR",3,2,2) 
DCOLOR*68 

ORUN GFX2C"CLEAR"™) 

ORUN GFX2C"CURDFF'') 

OFOR Y=@ TO 23 STEP З 


ORUN GFX2C"COLOR" ,COLOR) 
ORUN GFX2C"BAR",0,Y,639,Y*3) 
OCOLOR=COLOR+1 

OIF COLOR=2 THEN 
OCOLOR=COLOR+1 

DENDIF 

DNEXT Y 

OFOR Үз164 TO 185 STEP 3 
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ORUN GFX2C"COLOR",COLOR) 
ORUN GFX2C"BAR",0,Y,639,Y+3) 
OCOLOR=COLOR+1 

DNEXT Y 

OCOLOR=6 

OFOR К=45 TO 178 STEP 48 
OFOR T-108 TO 580 STEP 126 
ORUN GFX2C"COLOR",3) 

ORUN GFX2C"CIRCLE",T,K,30) 
ORUN GFX2C"COLOR",COLOR) 
ORUN GFX2C™FILL",T,K) 
OCOLOR=COLOR+1 

OIF COLOR=2 THEN 
OCOLOR=COLOR+1 

OENDIF 

ONEXT T 

ПМЕХТ К 

OREPEAT 

OX =RND(63) 

DREPEAT 

DY=RNDC16)+1 

DUNTIL Y«»2 

ORUN GFXeC"PALETTE",Y,XD 
ORUN INKEYCRESPONSE) 
DUNTIL RESPÜNSE»"" 

ORUN GFX2C"DEFCOL") 

ORUN GFX2C"CURON") 

DEND 
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PATTERN select pattern buffer 


Syntax: RUN GFX2([path,]" PATTERN" group, buffer) 


Function: Selects the contents of a preloaded Get/Put buffer as 


a pattern for graphics functions. Although PATTERN can use 
a buffer of any size, it uses a specific number of bytes, depend- 
ing on the screen format in use: 


Color Pattern Bits 
Mode Array Size Per Pel 
02 4 bytes x 8 bytes = 32 bytes 1 
04 8 bytes x 8 bytes = 64 bytes 2 
16 16 bytes x 8 bytes = 128 bytes 4 


The pattern array is a 32 x 8 pel representation of graphics 
memory. It takes the current color mode into consideration to 
define the number of bits per pel and pels per byte. If the 
buffer is larger than the number of bytes required, PATTERN 
ignores the extra bytes. BASICO9 uses the selected pattern 
with all draw commands until you change the pattern or turn 
off the pattern function by specifying a group and buffer num- 
ber of 0. 


Parameters: 
path The route to the window in which you want to 
use a new graphics pattern. 
group The group number of the buffer you want to 
use for a graphics pattern. 
buffer The buffer number that you want to use for a 
graphics pattern. 
Examples: 


RUN GFX2C"PATTERN",1,3) 
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Sample Program: 


This procedure loads the current window data at location 0,0 
into a buffer to use as a draw pattern. It then draws a circle and 
fills the circle with the pattern in the buffer. 


PROCEDURE pattern 

DDIM X,Y,T: INTEGER 

ORUN GFX2€C"GET",1,1,0,8,5,5) 
ORUN GFX2C"COLOR",4) 

ORUN GFX2C" CLEAR") 

ORUN GFX2C"CIRCLE",320,96,100) 
ORUN GFX2C"FILL",328,96) 

ORUN ОҒХОС"РАТТЕРМ",1,19 

ORUN GFX2C"COLOR",3) 

ORUN GFX2C"FILL",320,96) 


ORUN GFX2C"PATTERN",0,0) 
DEND 
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POINT Mark a point 


Syntax: RUN GFX2((path,]“POINT”[,xcor,ycor]) 


Function: Sets the pixel at the current draw pointer position 
or at the specified coordinates to the current foreground color. 
If you do not specify coordinates, POINT sets the pixel at the 
draw pointer. 


Parameters: 
path The route to the window in which you want to 
turn on the specified pixels. 
xcor,ycor Optional coordinates for the POINT function. 
The X-coordinates are in the range 0-639. The 
Y-coordinates are in the range 0-191. 
Examples: 


RUN GFX8C"POINT") 
RUN GFX2C"POINT",192,128) 


Sample Program: 


This procedure uses POINT to produce а swirl design оп a win- 
dow screen. 


PROCEDURE point 

OBASE 0 

ODIM x€28),YC26): INTEGER 
ODIM T,R,J,K: INTEGER 
DJ=0 

ПК=й 

ПРИМ GFX2C"CUROFF") 

ORUN GFX2C"CLEAR") 

OFOR T=1 TO 288 STEP 3 
DJ=J+1 

DFOR R=0 TO 11 
OXCRI=INTCT#SINC30*#R+K) +320 
ПуСе) = INTCJ«COSC30 +Е +К)) +96 
ORUN GFX2C"POINT",XCRO,YCROD 


——————————————— 
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ОК=К+1 

ОМЕХТ R 

ONEXT Т 

ORUN GFX2C"CURON") 
DEND 
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PROPSW Proportional space switch 


Syntax: RUN GFX2([path,|“PROPSW”,“switch”) 


Function: Enables or disables the automatic proportional spac- 
ing of characters on graphic screens. 


Parameters: 
path The route to the window in which you want to 
use proportional character spacing. 
switch Either OFF to turn proportional spacing off, or 
ON to turn proportional spacing on. The 
default setting of the switch is OFF. 
Examples: 


RUN GFX2C"PROPSW","ON") 


Sample Program: 


This procedure produces a demonstration of the BASICO9 propor- 
tional spacing function. 


PROCEDURE proport 
0014 LINE:STRING 


ODIM LETTER:STRING(1] 
ODIM T,J,K,FLAG: INTEGER 
ORUN GFX2C"CLEAR") 
OFLAG=1 

OFOR T=1 TO 12 

DREAD LINE 

OFOR Ј=1 TO LENCLINE) 
OLETTER=MID$CLINE,J,1) 
ОТЕ LETTER«»"!" AND LETTER<>"#" THEN 
OPRINT LETTER; 

DENDIF 

OIF LETTERs''!" THEN 

OF LAG*FLAG*~1 


ПІҒ FLAG>@ THEN 
ORUN GFX2C"PROPSW",“OFF") 


EE 
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DELSE 

ORUN GFX2C("PROPSW","ON") 

DENDIF 

DENDIF 

DIF LETTER="#" THEN 

OPRINT CHR$C34); 

OENDIF 

ПМЕХТ J 

OPRINT 

ONEXT T 

ОРВІМТ \ PRINT 

DEND 

DDATA "This із a demonstration of" 
ÜDATA "!Proportional Spacing! using" 
ODATA “BASIC@9’s GFX2 module." 

ODATA "" 

DDATA "!The quick brown fox jumped...!" 
ODATA "The quick brown fox jumped..." 
DDATA "" 

DDATA "Use the command" 

ODATA "!RUN GFX2C*PROPSH/ , #ON#)!" 

ODATA "to turn proportional spacing on." 
ODATA "Use !RUN GFX2C#PROPSW#,#OFF#)!" 
DDATA "to turn proportional spacing off" 
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PUT Put a saved data block on the window 


Syntax: | RUN GFX2([path,]“PUT”,group, buffer, 
xcor,ycor) 


Function: Places the image in the specified Get/Put buffer on 
the window. PUT requires only the group and buffer numbers 
and the window coordinates for the upper left corner of the 
image. The GET function saves the dimensions of the block in 
the buffer. PUT automatically handles window format 
conversion. 


Parameters: 
path The route to the window where you want to 
place a pre-saved image. 
group The group number of the buffer in which to 
save the window data. 
buffer The buffer number in which to save the win- 
dow data. 
xcor,ycor The X- and Y-coordinates of the upper left cor- 
ner of the window position. The X-coordinates 
аге in the range 0-639. The Y-coordinates are 
in the range 0-191. 
Examples: 


RUN GFX2C"PUT",1,5,100,50) 
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Sample Program: 


This procedure draws a character, loads it into a buffer, then 
repeatedly replaces the character to the window screen using 
PUT. Each new image erases the previous image, giving an 
impression of animation. 


PROCEDURE putdown 

DDIM X,Y,T,J: INTEGER 

ORUN GFX2C"CURDFF'') 

DRUN GFX2C"CLEAR") 

ORUN GFX2C"ELLIPSE",320,96,12,4) 
ORUN GFX2C"CIRCLE",320,90,5) 
ORUN GFX2C"COLOR",1) 

ОКОМ GFX2C"FILL",326,96) 

ОКОМ GFX2C"COLOR",3) 

ORUN GFX2C"FILL",320,90) 

ORUN GFX2C"BAR",305,100,335,104) 
ORUN GFX2C"GET",1,1,288,85,58,23) 
ORUN GFX2C"GET",1,2,1,1,50,23D 
ORUN GFX2C"PUT",1,2,288,85) 


DJ=180 

OFOR T=20 TO 559 STEP 6 
DJ=J+2 

ORUN GFX2C"UPUT",1,1,T,J) 
DNEXT T 


ORUN GFX2C"KILLBUFF",1,1) 
ОВОМ GFX2C"CURON") 
DEND 
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P UTGC Put graphics cursor 


Syntax: | RUN GFX2([path,]PUTGC",xcor,ycor) 


Function: Places and displays the graphics cursor at the speci- 
fied location. Use screen relative coordinates for this function, 
not window relative coordinates. The horizontal range is 
0-639. The vertical range is 0-191. 


Parameters: 
path The route to the window where you want to 
display a graphics cursor. 
xcor,ycor Тһе screen coordinates for the cursor location. 
The X coordinates are in the range 0-639. The 
Y coordinates are in the range 0-191. 
Examples: 


RUN СЕХ2С"РИТСС" , 188 ,52 


Sample Program: 


This procedure displays the available graphic cursors stored in 
group 202. Before this procedure can work, you must merge the 
Stdptrs file in the SYS directory of your system disk with the 
window you are using. For instance, if your system diskette is in 
Drive /D0, merge Stdptrs with Window 1, by typing: 


merge /d0/sys/stdptrs > /w1 


PRUCEDURE viewcur 

ODIM T,Z:INTEGER 

ORUN GFX2C"CLEAR") 

DFOR T=1 TO 7 

URUN GFX2C"GCSET",262,T) 
ORUN GFX2C"PUTGC",320,96) 
DFOR Z=1 TO 6000 

DNEXT Z 

DNEXT T 

ORUN GFX2C"GCSET",0,0) 
OEND 
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RE VON Reverse video on 
RE VOF Е Reverse video off © 


Syntax: RUN GFX2([path,]|“REVON”) 
RUN GFX2([path,]"REVOFT") 


Function: Enables or disables reverse video characters. Once 
set, reverse video remains in effect until you execute the 
reverse video off function. 

Parameters: 
path The route to the window in which you want to 

display reverse characters. 

Examples: 


RUN GFX2C"REVON") Q 
RUN GFX2C"REVOFF'') 
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SCALE SW enable/disable scaling 


Syntax: RUN GFX2([path,] SCALESW"," switch") 


Function: Enables or disables sealing when drawing on var- 
iously formatted windows. Scaling in windows is normally on. 
If scaling is off, coordinates are relative to the window origin 
coordinates. Scaling does not affect text. 


Parameters: 
path The route to the window where you want to 
turn scaling off or on. 
switch Either OFF (disable scaling) or ON (enable 
scaling). 
Examples: 


RUN GFX2C"SCALESLI" , "ОРЕ" 


Sample Program: 


This procedure runs a routine of drawing a design in overlay 
windows twice. The routine runs once with scaling off and once 
with scaling on. After the first routine pauses, press the space 
bar to see the second demonstration. 


PROCEDURE scale 

ODIM X,Y,X1,Y1,7,B,J,R,W,2: INTEGER 
ODIM RESPONSE:STRING(1] 
ORUN GFX2C"CLEAR") 

OFOR J=1 TO 2 

DIF Ј=1 THEN 

ORUN GFX2C"SCALESW","OFF") 
OELSE 

ОРОМ GFX2C"SCALESW", "ОМ"? 
DENDIF 

ОХей ХҮзй NX1280 \Y1=24 
ОЕОР Т=1 TO 4 

OIF T=2 OR Т=6 THEN 

OB=3 


р 
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UELSE В-2 

ПЕМОТЕ 

ORUN GFX2C"OWSET",1,X,Y,X1,Y1,B,7) 
OFOR R=1 TD 35 

Омз4й»5ТН<Р) +170 

П2- 25» СО5<Р) + 45 

ORUN GFX2C"CIRCLE",W,Z,36) 

ОМЕХТ R 

ОХ=Х+6 \Y=Y+2 \Х1=Х1-12 \Y1=Y1-4 
ОМЕХТ Т 

OPRINT "Press ñ Кеу..."; 

ПОЕТ #1,RESPONSE 

DFOR T=1 ТО 4 

ОКОМ GFX2C"OWEND") 

ПМЕХТ Т 

ONEXT J 

DEND 
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SE LE CT Select next window 


Syntax: RUN GFX2([path]," SELECT") 


Function: SELECT causes а window to display if the proce- 
dure is operating in the active window. If the procedure is not 
in the active window, the newly selected window displays 
when you press (CLEAR). If you do not specify a path, BASICO9 
selects the device using the standard input, standard output, 
and standard error paths, Paths 0, 1, and 2. 


Parameters: 


path The path to the window to select. 


Examples: 
RUN GFX2C"SELECT") 
RUN GFX2C1,"SELECT") 
RUN GFX2CPATH," SELECT") 


Sample Program: 


From /TERM, this procedure temporarily opens a path to 
Window 3, creates the window format, and uses SELECT to dis- 
play the new window. It draws a design, then returns to the 
/TERM screen and closes the path. 


PROCEDURE design 

0014 PATH,T,Y:INTEGER 

ПОРЕМ #PATH,"/W3":WRITE 

ORUN GFX2CPATH,"DHSET",5,0,0,80,24,3,2,2) 
ORUN GFX2CPATH,"SELECT™) 


DY=1 

OFOR T=1 TO 288 STEP З 

DY=Y+1 

ORUN GFX2CPATH,"ELLIPSE",3208,96,T,Y) 
ПМЕХТ Т 


ОВОМ GFX2CPATH,"COLOR",1,2) 
DFOR Т=200 TO 1 STEP -6 
ORUN GFX2CPATH,"ELLIPSE",320,96,T,Y) 


------------------------------------------------------ 
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DIF INTCT/3)=T/3 THEN 
DY=¥+1 

DENDIF 

DNEXT T 

ORUN GFX2C1," SELECT") 
ORUN GFX2CPATH,"DHEND") 
OCLOSE #PATH 

DEND 
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SETDPTR Set draw pointer 


Syntax: RUN GFX2([path,}“SETDPTR”,xcor,ycor) 


Function: Places the draw pointer at the specified coordinates. 
The draw pointer selects the beginning point of the next 
graphics draw function (such as CIRCLE, LINE, BOX, and so 
on), if you do not supply other coordinates. 


Parameters: 
path The route to the screen where you want to set 
the draw pointer. 
xcor,ycor The screen coordinates for the draw pointer 
location. The X-coordinates are in the range 
0-639. The Y-coordinates are in the range 0- 
191. 
Examples: 


RUN GFX2C"SETDPTR",100,5) 


Sample Program: 


This procedure uses coordinates from a DATA statement for set- 
ting the draw pointer to create a series of star shapes. 


PROCEDURE star 

ODIM X,Y,T,J: INTEGER 

OPRINT CHR$C12) 

DFOR J=1 TO 12 

DREAD X,Y 

ORUN GFX2C"SETDPTR",X*J, Y*J*J) 
DFOR T=1 TO 5 

OREAD X,Y 

ORUN GFX2C"LINE",X*J, Y*J*J) 
DNEXT T 

DNEXT J 

ODATA 320,46,440,146,200,84,440,84,200,146,320,46 
DEND 
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UN DLN ON Underline characters on 
UN DLN OFF Underline characters off © 


Syntax: RUN GFX2([path,]“UNDLNON”) 
RUN GFX2([path,]"UNDLNOFF") 


Function: Enables or disables character underline. After you 
execute UNDLNON, all characters displayed are underlined 
until you execute UNDLNOFF. The default is UNDLNOFF. 

Parameters: 


path The route to the window where you want to 
use underline characters. 


Examples: 


RUN GFX2C"UNDLNON'') о 
RUN GFX2C"UNDLNOFF") 
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ВАЅІСО9 Quick Reference 


© This chapter contains a quick reference of all BASICO9 com- 
mands, statements, and functions. It includes commands for pro- 
gramming, editing, and debugging, as well as the Commands 
mode commands. 


The following chart lists АП BASICO9 keywords that you can use 
in a procedure. 


Statements and Functions 


Command Description 

ABS Returns the absolute value of a number. 
ACS Calculates the arccosine of a number. 
ADDR Returns an integer value which is the abso- 


lute memory address of a variable, array, or 
structure in a process’s address space. 


© AND Generates the logical AND of two Boolean 
values. 
ASC Returns the ASCII code of the first сһагас- 
ter in a string. 
ASN Calculates the arcsine of a number. 
ATN Calculates the arctangent of a number. 
BASE Sets the lowest array or data structure sub- 
script in a procedure to either O or 1. 
BYE Ends execution of a procedure and termi- 
nates BASICOO9. 
CHAIN Executes a module, passing arguments if 
appropriate. 
CHD Changes the current data directory. 
CHR$ Returns the ASCII character represented by 
a specified integer. 
о CHX Changes the current execution directory. 
CLOSE Deallocates the specified path to a file or 
device. 
COS Calculates the cosine of a number. 
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Command 
CREATE 


DATE$ 
DEG 
DATA 


DELETE 
DIM 


DO 
ELSE 
END 


ENDEXIT 
ENDIF 
ENDLOOP 
ENDWHILE 
EOF 

ERR 


ERROR 

EXITIF/ 
ENDEXIT 

EXP 

FALSE 

FIX 


FLOAT 


Description 


Opens a path and establishes a new file on 
disk. 


Returns the computer's current date and 
time. 


Causes BASICO9 to calculate angles in 
degrees. 


Stores data in a procedure to be accessed 
by the READ statement. 


Deletes a file from disk. 


Declares simple variables, arrays or complex 
data structure for size and type. 


See WHILE/DO/ENDWHILE. 
See IF/THEN/ELSE/ENDIF. 


Terminates execution of a procedure. 
Returns to the calling procedure or to 
BASICO9's command mode. Displays the 
specified text. 


See EXITIF/ENDEXIT. 

See IF/THEN/ELSE/ENDIF. 

See LOOP/ENDLOOP. 

See WHILE/DO/ENDWHILE. 

Tests for the end of a disk file. 

Returns the error code of the most recent 
error. 

Generates the specified error. 

Tests conditions in a loop. The procedure 
exits the loop if the condition is true. 
Calculates e (2.71828183) raised to the 
specified value. 

A Boolean function that always returns 
FALSE. 

Rounds a real number and converts it to an 
integer. 

Converts a byte or integer value to a real 
number. 


10-2 


BASICO09 Quick Reference / 10 


Command 


Description 


FOR/NEXT 
GET 


GOSUB/ 
RETURN 


IF/THEN/ELSE/ 
ENDIF 


INKEY 
INPUT 
INT 
KILL 
LAND 
LEFT$ 


LEN 
LET 
LNOT 


LOG 
LOG10 


LOOP/ 
ENDLOOP 


LOR 


Creates a program loop of a specified num- 
ber of repetitions. 


Reads an element or a data structure from 
a binary file or a device. 


Transfers program control to a specified 
subroutine. RETURN sends execution back 
to the calling routine. 


Evaluates an expression and performs an 
operation if the conditions are met. Includ- 
ing ELSE causes an alternate operation if 
the conditions are false. 


Stores the character of a keypress in a 
string variable. 


Causes a procedure to accept input from 
the keyboard or other specified device. 


Returns the largest whole number less than 
or equal to the specified value. 


Unlinks a procedure. (Removes it from 
BASIC09’s directory.) 


Performs a bit-by-bit logical AND on 
two-byte, or integer, values. 


Returns the specified number of characters, 
from the leftmost portion of a string. 


Returns the length of the specified string. 
Assigns a value to a variable. 


Performs a bit-by-bit logical NOT function 
on two-byte, or integer, values. 


Calculates the natural logarithm. 
Calculates a base 10 logarithm. 


Establishes a loop. Use EXITIF and 
ENDEXIT to test the loop and exit when a 
specified condition is true. 

Performs a bit-by-bit logical OR on two- 
byte, or integer, values. 
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Command 
LXOR 


MID$ 


MOD 


NEXT 
NOT 


ON ERROR/ 


GOTO 
ON/GOSUB 


ON/GOTO 


OPEN 
OR 
PARAM 
PAUSE 
PEEK 


PI 
POKE 


POS 
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Description 


Performs a bit-by-bit logical EXCLUSIVE 
OR on two-byte, or integer, values. 


Returns the specified number of characters, 
beginning at the specified position in a 
string. 


Returns the modulus (remainder) of a divi- 
sion operation. 


See FOR/NEXT. 


Returns the logical complement of a Boolean 
value. 


Traps errors and transfers control to the 
specified line number. 


Evaluates an expression. Then, selects from 
a list the line number that is in the posi- 
tion indicated by the result of the expres- 
sion. Procedure execution transfers to the 
selected line. 


Evaluates an expression. Then, selects from 
a list the line number that is in the posi- 
tion indicated by the result of the expres- 
sion. Procedure execute jumps to the 
selected line. 


Opens an ПО path to an existing file or 
device. 


Performs a logical OR on two Boolean 
values. 


Describes the parameters a called proce- 
dure expects from a calling procedure. 


Suspends execution of a procedure, and 
enters the Debug mode. 


Returns the byte value of a memory 
address. 


Represents the constant 3.14159265. 


Stores a byte value at a specified memory 
address. 


Returns the current character position of 
the print buffer. 
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Command 
PRINT 


PRINT USING 
PRINT# 
PRINT# USING 


PUT 
RAD 


READ 


REM 


REPEAT/UNTIL 
RESTORE 


RETURN 
RIGHT$ 


RND 


RUN 
SEEK 
SGN 
SHELL 


SIN 
SIZE 


SQ 


Description 


Sends the specified characters or values to 
the display. 


Sends characters or values to the display, 
using the specified format. 


Sends the specified characters or values to 
the specified path. 


Sends characters or values to the specified 
path using the specified format. 


Writes data to a random access file. 


Causes BASICO9 to calculate angles in 
radians. 


Accesses data from procedure DATA lines or 
from files or devices. 


Indicates that the following characters in a 
procedure line are comments and are not to 
be executed. Also use (* ж) or (*. 


Establishes a loop that executes until the 
specified condition is met. 


Restores the DATA pointer to the first data 
item or to a specified line. 


See GOSUB/RETURN. 


Returns the number of characters specified, 
from the rightmost portion of a string. 


Returns a random number from a specified 
range. 


Calls another procedure for execution. 
Changes the file pointer address. 
Determines the sign of a number. 


Calls an OS-9 command or program for 
execution. 


Calculates the sine of a specified value. 


Returns the number of bytes assigned to a 
variable, array, or complex data structure. 


Calculates a value raised to the power of 
two. 
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Command 
SQR/SQRT 


STEP 


STOP 


STR$ 
SUBSTRING 


SYSCALL 
TAB 


TAN 
TRIM$ 


TRON/TROFF 

TRUE 

TYPE 

UNTIL 

USING 

VAL 

WHILE/DO/ 
ENDWHILE 

WRITE 


XOR 
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Description 


Calculates the square root of a positive 


number. 


Sets the size of increment in a FOR/NEXT 


loop. 


Terminates the execution of all procedures 
and returns to the BASICO9 Command 


mode. 


Converts numeric data to string data. 


Returns the starting position of a sequence 
of characters in a string. 


Executes an OS-9 System Call. 
Begins a print operation at the specified 


column. 


Calculates the tangent of a value. 
Strips trailing spaces from the specified 


string. 


Turn the trace mode on and off. 

Returns the Boolean value of TRUE. 
Defines a new data type. 

See REPEAT/UNTIL. 

See PRINT USING. 

Converts a string to an integer. 

Executes a loop as long as a specified condi- 


tion is true. 


Writes data in ASCII format to a file or 


device. 


Performs a logical EXCLUSIVE OR on two 


Boolean values. 
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Commands by Туре 


Statements 


BASE 0 DIM GOSUB OPEN RETURN 
BASE 1 ELSE GOTO PARAM RUN 
BYE END IF/THEN PAUSE SEEK 
CHAIN ENDEXIT INPUT POKE SHELL 
CHD ENDIF KILL PRINT STOP 
CHX ENDLOOP LET PUT TROFF 
CLOSE ENDWHILE LOOP RAD TRON 
CREATE ERROR NEXT READ TYPE 
DATA EXITIF/THEN ONERROR/IGOTO REM UNTIL 
DEG FOR/TO/STEP | ON/GOSUB REPEAT — WHILE/DO 
DELETE СЕТ ON/GOTO RESTORE WRITE 
Transcendental Functions 

ACS COS 10610 SIN 

ASN EXP PI TAN 

ATN LOG 
Numeric Functions 

ABS LAND MOD 59 

FIX LNOT RND SQR 

FLOAT LOR SGN SQRT 

INT LXOR 
String Functions 

ASC LEFT$ RIGHT$ TRIM$ 

CHR$ LEN STR$ VAL 

DATE$ MID$ SUB STR 

INKEY 
Miscellaneous Functions 

ADDR FALSE SIZE SYSCALL 

EOF PEEK TAB 

ERR POS TRUE 
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Data Types 


The following list shows the BASIC09 data type you can specify 
when defining a variable. 


Type 
BOOLEAN 
BYTE 
INTEGER 
REAL 


STRING 


Function 
Returns TRUE or FALSE 


Specifies that a numeric variable is to store 
single-byte values. 

Specifies that a numeric variable is to store 
integer (two-byte) values. 

Specifies that a numeric variable is to store 
real (five-byte) values. 


Specifies that a variable is to store ASCII 
characters. 


Types of Access for Files 


You can use the following parameters with the CREATE and 
OPEN commands. Check the individual commands for informa- 
tion on which parameter to use with which command. 


Parameter 
DIR 


EXEC 


READ 
WRITE 
UPDATE 
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Function 


Lets BASICO9 access a directory-type file 
for reading. Do not use with UPDATE or 
WRITE. 


Lets BASICO9 access the current execution 
directory rather than the current data 
directory. 


Sets the file access mode for reading. 
Sets the file access mode for writing. 


Sets the file access mode for both reading 
and writing. 
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Command Mode 


The following chart lists the commands available from the 
BASIC09 Commands mode: 


Command 


$ 

BYE or 
CHD 
CHX 
DIR 


EDIT or E 
KILL 
LIST 
LOAD 


MEM 


PACK 


RENAME 
RUN 
SAVE 


Function 


Calls the shell command interpreter to exe- 
cute ап OS-9 command. 


Returns you to the OS-9 system or to the 
program that called BASICOO9. 


Changes the current data directory. 
Changes the current execution directory. 


Displays the name, size, and variable stor- 
age requirement of each procedure in the 
workspace. 


Enters the procedure editor/compiler mode. 


Removes one or more procedures from the 
workspace. 


Displays a formatted listing of one or more 
procedures. 


Loads all procedures from a file into the 
workspace. 


Displays current workspace size or reserves 
a specified amount of memory for the 
workspace. 


Performs a second compilation and stores 
the resulting file in the execution directory. 


Changes a procedure's name. 
Causes a procedure to execute. 
Writes one or more procedures to disk. 
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Edit Commands 


The following chart lists the commands available from the Edit 
mode: 


Command Function 

Moves the edit pointer to the next line. 

+num Moves the edit pointer forward a specified 
number of lines. 

+* Moves the edit pointer past the last line. 

—num Moves the edit pointer back a specified 
number of lines. 

et Moves the edit pointer to the first line. 

text А space followed by text inserts an unnum- 
bered line before the current line. 

line Typing a line number with or without text 
following it inserts the line into the 
procedure. 

line Moves the edit pointer to the line line. 

c/strl/str2/ Changes the text str1 to the text str2. 

c*/strl/str2 Changes all occurrences of 5171 to str2. 

d Deletes the current line. 

d* Deletes all the lines in the procedure. 

1 . Lists Ше current line. 

]* Lists all the lines in the current procedure. 

q 'Terminates the edit session. 

r Renumbers lines from the first line number, 
in increments of 10. 

г“ Renumbers аП numbered lines іп іпсге- 
ments of 10. The first line number is 100. 

r line Renumbers lines from line in increments of 
10. 

r line num Renumbers lines from line, in increments of 
num, 

s/str Searches for the first occurrences of str. 

s*/str Searches for all occurrences of str. 
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Debug Commands 
The following table lists all the Debug commands and what they 


accomplish: 

Command Function 

$command Tells BASICO9 to execute the specified OS-9 
command or program. 

BREAK Sets a breakpoint at the specified 
procedure. 

CONT Causes procedure execution to continue. 

DEG/RAD Selects either degrees or radians as the unit 
of angle measurement for trigonometric 
functions. 

DIR Displays the procedures in the workspace. 

Q Leaves the Debug mode for the System 
mode. 

LET Assigns a new value to a variable. 

LIST Displays a source listing of the suspended 
procedure. 

PRINT var Displays the value of the specified variable. 

STATE Lists the nesting order of all active 
procedures. 

STEPnum Causes execution of the suspended proce- 
dure in specified increments. 

TRON/TROFF Turns the trace function on and off. 
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BASIC09 Command Reference 


© BASICO9 is made of keywords (functions and statements) that 
you use, with their parameters, to instruct the computer to per- 
form certain operations. 


This chapter is a complete reference for all of BASICO9's 
keywords. 


Keyword Format 
The reference to each keyword is organized in this manner: 
© The keyword. 


е The proper syntax (spelling and form) for using the 
keyword. 


e A brief description of the keyword’s purpose or effect. 


e Descriptions of any parameters or arguments for the 


© keyword. 


e Notes about special features or requirements of the key- 
word, when appropriate. 


е One or more examples for using the keyword. 
е One or more sample procedures. 


This format can vary slightly, depending on the complexity of 
each keyword. For instance, some keywords require parameters 
or arguments, and others do not. Some keywords are self- 
explanatory and do not require a sample procedure. 


The Syntax Line 


Тһе second line in each command or keyword reference is the 
syntax line. This line uses keyword constants and keyword vari- 
ables to show you how to construct a command line. Constants 
are words, numbers, or symbols that you type exactly as they 

о appear. Variables аге words that only represent the actual 
words, numbers, or symbols that you must supply for the 
command. 


BASICO9 Reference 


All variables are italic. When you see an italicized word, you 
know that you must supply some other word, name, symbol, or 
value in place of that word. If a word, symbol, or value is not 
italicized, type it exactly the way it appears in the syntax line. 


The syntax line also uses symbols to help you understand how to 
construct a command line. These symbols are: 


[] Words, names, value, or symbols contained between 
right and left brackets are optional. You can use them 
or not, depending on what you want to accomplish with 
the command. 


... Ellipsis indicates that the last parameter can be 
repeated. 


The following syntax line for DELETE requires only one param- 
eter, the variable pathname. 


DELETE "pathname" 


Because pathname is italicized, you know that you must replace 
it with other text—in this case the pathlist to the file you want 
to delete. If you wanted to delete a file named Test from the 
ROOT directory of Drive /D1, this syntax line tells you that you 
must type: 


delete "/d1/test" 


Other syntax lines are more complex, such as the line for 
CREATE: 


CREATE *path,"pathlist" [access model 
[*access model[+...] 


This line tells you how to create a path to a file or device. 
Because the number symbol (#) is not italicized, you type it 
after the blank space following the keyword. However, 
path,pathlist, and access mode are all italicized. You must 
replace them with other names or values. 


The access mode variable is contained within brackets. This tells 
you that it is optional. You can include an access mode, or not. If 
you don't, BASICO9 opens the path in the Update Mode. 


The second access mode shows that the command allows two 
access mode parameters, preceded by a plus symbol. The ellipsis 
show that you can have even more access mode parameters. 
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Other syntax lines show that по parameters аге required, such 
as: 


DATE$ 


This command returns the current date. There is nothing it 
requires, and you can do nothing else with it. 


Sample Programs 


Тһе sample programs in this chapter are complete. That is, you 
can type them, run them, and get a result. The procedures let 
you see the syntax and form of a command, as well as showing 
you how it might be used in a program. 


Because the programs are executable, the manual shows unfor- 
matted listings (without relative address, indented control struc- 
tures, and so on). This helps eliminate confusion for you when 
you type the program. You can type it exactly as it appears, exit 
the editor, and run the procedure. 
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АВ5 Return absolute value 


Syntax: ABS(number) 


Function: Computes the absolute value of number. A number's 
absolute value is its magnitude without regard to its sign. 
Absolute values are always positive or zero. 


Parameters: 


number Any positive or negative number. 


Examples: 
PRINT ABSC-66) 
X=ABSCY) 


Sample Program: 


The following procedure asks you to type the temperature, and 
makes an appropriate comment. It uses ABS to get the absolute 
value of the temperature. 


PROCEDURE temperature 

ODIM TEMP: INTEGER 

DINPUT "What’s the temperature outside? (Degrees 
F2..." ,TEMP 

DIF TEMP<® THEN 

ОРЕТНТ "That's “; ABSCTEMP); " below 
zero!(IDBrrrrrrr!" 

DEND 

DENDIF 

DIF ТЕМР=@ THEN 

ÜPRINT "Zero degrees? That's mighty cold!" 

DEND 

DENDIF 

ÜPRINT TEMP; “ degrees above zero? That's kind of Q 
balmy..." 

DEND 
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ACS Return arccosine 


Syntax: ACS(number) 


Function: Calculates the arccosine of number. Use the DEG or 
RAD commands to tell BASICO9 if number is in degrees or 
radians. If you do not specify degrees or radians, the default 
is radians. 


Parameters: 
number The number for which you want to compute 
the arccosine. 
Examples: 


PRINT ASCC.6561) 


Sample Program: 


The procedure calculates the arccosine of a value you type and 
expresses the result in degrees. 


PROCEDURE arccosine 

ODEG 

ODIM NUM:REAL 

OINPUT “Enter a number between -1 and 1", НОМ 
OPRINT "The arccosine of "; NUM; " is---"; 
ACSCNUM) 

DEND 


11-5 


BASICO9 Reference 


ADDR Return the location of a variable 


Syntax: ADDR(name) 


Function: Returns the absolute location in a process’s address 
space of the variable, array, or data structure assigned to 
name. The address returned is that of the first character in 
the variable. If the variable is numeric, one or more of the 
locations might contain zero. 


For instance, if you use ADDR to obtain the address of an 
integer variable that contains the value 44, the first address 
location (byte) contains 0, and the second location contains 44. 


Parameters: 
name The name of a string, a numeric variable, an 
array, or a data structure. 
Examples: 


This procedure displays the memory address where a variable 
named X resides: 


PRINT ADDRCX) 
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Sample Program: 


This procedure uses ADDR to tell you the memory location of 
о the variable that stores your keyboard entry. 


PRDCEDURE address 

ODIM A: INTEGER 

ODIM TEST:STRING 

ПІМРОТ "Type a string of characters..." ,TEST 
DA=ADDRCTEST) 

DPRINT "The string you typed is stored at address 
"; A 

DPRINT "This is what it contains:..." 

OFOR Т=А TO A*LENCTESTO 

OPRINT CHRS$CPEEKCT2)2; 

ONEXT T 

OPRINT 

DEND 
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AND Performs a logical AND operation 


Syntax: орегапа1 AND operand2 


Function: Performs the logical AND operation on two or more 
values, returning a value of either TRUE or FALSE. 


Parameters: 
operand] Can be either numeric or string values. 
operand2 
Examples: 
PRINT A>3 AND B»3 
PRINT A$-"YES" AND B$s'"YES" 


Sample Program: о 


Тһе following program calculates ап insurance premium rate 
that is based on the answers to some lifestyle questions. Every 
time you press (Y), the premium rate goes up. The procedure 
uses AND to increase the rate by two percent if you both smoke 
and drink. 


PROCEDURE policy 

ODIM POLICY_VALUE,RATE:REAL 
ODIM SMOKE,DRINK:STRINGI1] 
OPOLICY_VALUE=1609009. 


ПВАТЕ-.001 

DINPUT "Do you smoke? C(Y/N)..." ‚МОКЕ 

DINPUT "Do you drink? CY/N)...",DRINK 

OIF SMDKE="Y" AND DRINK="Y" THEN RATE=RATE+.02 

DELSE 

OIF SMOKE="Y" THEN БАТЕ-БАТЕ».01 

DENDIF 

DIF DRINK="Y" THEN RATE=RATE+. 61 о 
ОЕМОТЕ 

ПЕМОТЕ 


OPRINT "Your premium is "; RATE*POLICY_VALUE 
DEND 


——————————————————————————————————————— 
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ASC. Returns ASCII code 


Syntax: ASC(string) 


Function: Returns the ASCII code for the first character of 
string. 


ASC returns the value as a decimal number. If string is null 
(contains no characters) BASICO9 returns Error 67 (Illegal 
Argument). 

Parameters: 


string Any string type variable or constant. 


Examples: 
PRINT АЅСС"Не110") 
X = ASCCAS) 


Sample Program: 


The following procedure determines whether the first character 
you enter is a hexadecimal digit. To do this, it gets the ASCII 
value of the character and compares it to the ranges for charac- 
ters between 1 and 0 and A and F. 


PROCEDURE hexcheck 
ODIM A: INTEGER 
DDIM HEXNUM:STRING 


ОГООР 
DINPUT "Enter а hexadecimal value..." , НЕХМОМ 
DA=ASCCHEXNUM) \ (+ GET THE ASCII CODE *) 


DEXITIF А<48 OR A>S7 AND А<65 OR 4270 THEN 
OPRINT "Not a hex number." 

ПЕМр 

BENDEXIT 

OPRINT "Ok." 

DENDLOOP 

ПЕНО 
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ASN Returns arcsine 


Syntax: | ASN(number) 


Function: Calculates the arcsine of number. ASN expresses its 
result in radians unless you specify otherwise (see DEG). 


Parameters: 
number The number for which you want to calculate 
the arcsine. 
Examples: 


PRINT ASCC.6561) 


Sample Program: 


The following program calculates the arcsine of a number you 
enter and expresses the result in degrees. 


PROCEDURE arcsine 
DDIM NUM:REAL 


DDEG 

DINPUT "Enter a number С-1 to 1) ",NUM 

OPRINT "The arcsine of a "; NUM; " is---"; 
ASNCNUMD 

DEND 


11-10 


BASICO9 Command Reference / 11 


ATN Returns arctangent 


Syntax: ATN(number) 


Function: Calculates the arctangent of number. 


Parameters: 
number The number for which you want to find the 
: arctangeut. 
Examples: 


PRINT ASCC.6561) 


Sample Program: 


This procedure calculates arcsine, arccosine, and arctangent for 
о а value you enter. 


PROCEDURE anglecalc 
DDIM NUM:REAL 


DDEG 

DINPUT "Enter a number ",NUM 

OPRINT 

OPRINT " ","Arcsine","Arccosine","Arctangent" 
OPRINT "Number", "Degrees", "Degrees", "Degrees" 
OPRINT "------------------------------------------ 


ШЕ NUM>1 OR NUM<-1 THEN 

OPRINT NUM, "UNDEF", "UNDEF", АТКСМИМО 
OPRINT 

ПЕН 

ПЕКОТЕ 

OPRINT NUM,ASNCNUMD , ACSCNUMD , ATNCNUMD 
DPRINT 


О DEND 
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BASE set array base 


Syntax: BASE 0 
BASE 1 


Function: Sets a procedure' lowest array or data structure 
index to either 0 or 1. If you want to have the first elements in 
arrays set to 0, you must include BASE 8 at the beginning of 
the procedure. 


The BASE statement does not affect string operations such as 
MID$, RIGHT$, and LEFT$. BASICO9 always indexes the 
first character of a string as 1. 


Parameters: 
0оғ1 If you до not indicate а BASE setting іп а рго- 
cedure, BASIC09 uses a default of 1. 
Examples: 
BASE 0 


Sample Program: 


This procedure determines how many times RND selects each 
number between 0 and 11 out of 1000 selections. It stores the 
results in an array of 12 elements. Because it specifies BASE 0, 
one of the elements in the array is 0. Whenever the procedure 
picks a random number, it increments the value in the corre- 
sponding array number by one. 


PROCEDURE randomtest 
DBASE 0 (+ set the array base at B, 
ODIM RND_ARRAY(12),X,Rs INTEGER (+ dimension array to hold results. 


ОРОВ Xs0 TO 11 

CORND__ARRAY(X)=8 (+ initialize array elements at zero. 
DNEXT X 

DSHELL "TMODE -PAUSE" (+ turn off screen pause. 


ОРОК X«1 TO 1888 
DR*RNDCI 1) (+ select random number 1888 times, 


————————————————————————————————————————— 
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CORND__ARRAY (R)=RND__ARRAY(R) +1 
(* add 1 to appropriate element. 


OPRINT 1881-Х (+ count down from 1000 to 1. 
NEXT X 


ОРОВ X=@ TO 11 
OPRINT "RND selected "; X; " "; RND. ARRAYCO; " 


times." (display array 

DNEXT X 

DSHELL "ТЕШЕ PAUSE" (+ turn scroll lock back on. 
ПЕН? 
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ВУЕ End procedure, terminate BASIC09 


Syntax: BYE 


Function: Ends execution of a procedure and terminates 
BASICO9. The statement closes any open files, but you lose 
any unsaved procedures or data. 


Use BYE to exit packed programs that you call from OS-9 and 
especially programs that you call from procedure files. 


Parameters: None 


Examples: 


INPUT "Press ENTER to return to the system." ;Z$ 
BYE 


Sample Program: 


This procedure calculates the payments and interest of a loan. 
When it is through, it exits the procedure and BASICO9 with a 
BYE statement. 

PROCEDURE loan 
ODIM PRIN,LENG,RATE ,MONPAY:REAL 
ODIM RESPONSE:STRING(1) 
ПВЕРЕАТ 
DPRINT “Amortization Program" 
DINPUT "How much do you want to borrow?...",PRIN 
DINPUT "For how many months?...",LENG 
DINPUT "At what interest rate?...",RATE 
DA*RATE/1208 . 
DB*1-1/C1*A)^LENG 
OMONPAY=PRIN#A/B 
DMONPAY = І КТ СМОКРАУ+ 188 + 5) / 188 
OPRINT "Monthly payments аге...$"; 
OPRINT USING "R12.2«",MONPAY 
OPRINT "The total interest to pay is...$"; 
OPRINT USING "r12.2«" , MONPAY*LENG-PRIN 
CPRINT 
DINPUT "Do another calculation?...",RESPONSE 
OPRINT 
OPRINT 
[JUNTIL RESPONSE "Y" 
DBYE 


ПЕКО 
—— с ьи 
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CHAIN Execute another module 


Syntax: CHAIN “module [parameters][...]" 


Function: CHAIN performs an OS-9 chain operation, passing 
module as the name of a program to execute. If you include 
other parameters, CHAIN passes them to the executing mod- 
ule. The module must be programmed to expect parameters of 
the type you provide. 


CHAIN exits BAS1C09, unlinks BASIC09, and returns the 
freed memory to OS-9. 


CHAIN can begin execution of any module, not only BASIC09 
modules. It executes the module indirectly through the shell 
in order to take advantage of the shell’s parameter processing. 
This has the side effect of leaving the initiated shells active. 
Programs that repeatedly chain to each other eventually fill 
memory with waiting shells. To prevent this, use the EX 
option to initialize a shell. 


BASICOO9 does not close files that are open when you execute 
CHAIN. However, the OS-9 FORK call passes only the stan- 
dard I/O paths (0, 1, and 2) to a child process. Therefore, if 
you need to pass an open path to another program segment, 
` use the EX shell option. 


Parameters: 


module The name of the procedure module you want 
BASIC09 to execute. 


parameters String data passed to the chained module. 
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Examples: 
CHAIN "ex BASIC09 menu" 


CHAIN "BASIC09 #10k sort C'"datafile'", © 
““tempfile'")" 


CHAIN "DIR /DO" 


CHAIN "Dir; Echo *** Copying Directory ***; ex 
Баѕісӣ9 copydir"™ 


Sample Program: 


This procedure chains to two others to display a directory or a 
file. It uses CHAIN to call the procedures. 


PROCEDURE chaining 

ODIM RESPONSE: BYTE 

OPRINT USING "S26^","- MENU -" (+ print menu title. 
DPRINT 

OPRINT "1. List current data directory" (ж print menu. 
OPRINT "2. Display a file" 


ÜPRINT "3. Exit to system" © 
DPRINT 

DINPUT "Select a function (1-3) ",RESPONSE (+ function you want. 

CON RESPONSE GOTO 108,288,388 (+ select appropriate function. 

1@@ПСНА1Н "EX BASICO9 dirlook" (ж chain to list directory. 

28 ВПСНАТН "EX BASICAS display" (+ chain to list file. 

ЗВВОВУЕ 


PROCEDURE dirlook 
DREM Lists the specified directory 


DSHELL "DIR" (+ execute dir command, 
OCHAIN "EX BASICB9 chaining" (+ chain back to calling proc. 
ОЕМ 


PROCEDURE display 
OREM Lists the specified file. 


ODIM FILE,JOB:STRING 


DINPUT "Path of file to display...",FILE 
Оу0ве" 157 "+FILE о 
DSHELL JOB (* list specified file, 


OCHAIN "EX BASICOS chaining" (* chain back to calling proc. 
ПЕН) 


EENE EE HEP € 
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CHD Change data directory 
CHX Change execution directory 


Syntax: CHD dirpath 
CHX dirpath 


Function: Changes the current data or execution directory. 


Parameters: 


dirpath An existing data or execution directory. 


Examples: 
CHD "/D1/ACCOUNTS/RECEIVABLE" 
CHX "/D1/CMDS" 
снр ".." 


Sample Program: 


This procedure creates a directory, and makes it the data direc- 
tory. Then, it creates a file in the new directory, exits the new 
directory, and deletes the file and the directory. 


PROCEDURE chdtest 

ODIM PATH: BYTE 

SHELL "MAKDIR TEST" (+ create new directory named TEST. 
DCHD "TEST" (+ make TEST the data directory. 


ПСВЕЙТЕ #PATH,"samplefile":WRITE (+ create a file in TEST. 
DREM Write data into the new file 

QWRITE #PATH,"This file is for testing only." 

QWRITE #PATH,"It will be destroyed when this procedure ends." 
QCLOSE #PATH 


ОБНЕЦ. "LIST samplefile" (+ list the new file. 

DCHD ".." (+ make the ROOT the data directory. 
DSHELL "DEL TEST/sanplefile" (+ delete the file. 

OSHELL "DELDIR TEST" (+ delete the directory. 

DEND 
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СНЕ$ Return ASCII character 


Syntax: CHR$(code) о 


Function: Returns Ше ASCII character for the value of code. 
CHR$ is the inverse of the ASC function, which returns the 
ASCII code for a given character. For a complete listing of 
ASCII codes, see Chapter 9. 


Parameters: 
code The ASCII value for a keyboard character or 
special block graphics character. 
Examples: 


PRINT CHR$(C88) 


Sample Program: 


By increasing by one the ASCII values of characters you type, © 
the following program creates a secret code. It uses CHR$ to dis- 
play the secret code. 


PROCEDURE secret 

ODIM TEXT,SECRETLINE:STRING[80) 
ODIM T,CODECHAR:INTEGER 
ОТЕХТ="" 

DSECRETL INE зи" 


OPRINT "Type a line to code in capital letters..." 

DINPUT TEXT (+ you type a line. 

DFOR 7-1 TO LEN(TEXT) 

DCODECHAR:ASCCHIDSCTEXT,T,1)) (+ look at each character in line. 


DIF CODECHAR=90 THEN (+ is it "2"? [f yes then 

OCODECHAR=64 (+ make it one less than "А", 

ENDIF 

OIF CODECHAR-32 THEN (+ is character a space? If yes then 

QCODECHAR=31 (+ decrease 115 value by one. 

DENDIF о 
DSECRETLINE=SECRETLINE+CHR$(CODECHAR+1) (+ add 1 to characters, 

[NEXT Т 

DPRINT SECRETLINE (+ print the secret code. 

DEND 


——————————————————————————————————————PD 
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CHX Change execution directory 


© CHD Change data directory 


Syntax: СНХ dirpath 
CHD dirpath 
Function: Changes the current execution or data directory. 


Parameters: 


dirpath An existing execution or data directory. 


Examples: 
CHX "/D1/CMDS" 
CHD "/D1/ACCDUNTS/RECEIVABLE" 


© снр ".." 
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CLOSE Deallocate file or device path 


Syntax: CLOSE #pathnum 


Function: Deallocates the file or device path specified by 
pathnum. 


When you OPEN or CREATE a file, BASICOO9 allocates a path 
number to the variable you supply in the OPEN or CREATE 
command. The system then knows the path by that number. If 
the path you CLOSE is to a non-shareable device (such as a 
printer), the system releases the device for other use. Do not 
close paths 0, 1, and 2 (the standard ПО paths) unless you 
immediately open a new path to take over the standard path 
number. 


Parameters: 
pathnum The name of variable containing the path 
number or the actual number of the path to a 
file or device. I 
Examples: 


CLOSE #FILEPATH, #PRINTERPATH, #TERMPATH 
CLOSE #5, #6, #7 


CLOSE #1 А (+ closes the standard output path +) 
OPEN #РАТН,“/Т1" \ (+ redirects standard output *) 


Sample Program: 


This procedure creates a directory named TEST and changes it 
to the data directory. It then creates a file named Samplefile and 
writes data to the file. Finally it changes back to the parent 
directory and deletes Samplefile and TEST. 
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PROCEDURE close 

ODIM PATH: BYTE 

OSHELL "МАКТА TEST" 

QCHD "TEST" 

CCREATE fPATH,"samplefile":WRITE (+ create a new file. 
DWRITE zPATH,"This file is for testing only," 

OWRITE ФРАТН, "А will be destroyed when this procedure ends." 
ICLOSE #РАТН (+ close the file. 

DSHELL "LIST sanplefile" 

пено ".." 

QSHELL "DELDIR TEST" 

ПЕН) 
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COS Return cosine 


Syntax: COS(number) 


Function: Calculates the cosine of number. Unless you specify 
DEG, COS interprets the value of number in radians. 


Parameters: 
number The number for which you want to find the 
cosine. 
Examples: 


PRINT COSC€45) 


Sample Program: 


This procedure calculates sine, cosine, and tangent of a value о 
you enter. 


PROCEDURE ratiocalc 
DDIM NUM:REAL 


DDEG 

DINPUT "Enter a number..." МОМ 

DPRINT 

OPRINT "Number" ,"SINE","COSINE","TAN" 

OPRINT "------------------------------------------ 


OPRINT ANGLE,SINCNUMD , COSCNUMD , TANCNUM) 
ОРЕТНТ 
DEND 
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CREATE Establish a disk file. 
Q 


Syntax: 
CREATE #path,“pathlist’ [access mode] 
[+ access mode][ +...) 


Function: Creates a file on a disk. When you create a file, you 
can select опе or more of the following access modes Юг the 


file: 

Mode Function 

READ Lets you read (receive) data from a file but 
does not let you write (send) data to the file. 

WRITE Lets you write data to a file but does not let 


you read data from a file. 
UPDATE Lets you both read from and write to a file. 


Parameters: 
path The name of the variable in which BASICO9 
stores the number of the opened path. 
pathlist The route to the file or device to be opened, 


including the filename, if appropriate. 


access mode | The type of access to be allowed for the file or 
device. Use plus symbols to allow more than 
one type of access with a single file. 


Notes: 


е You can access files either sequentially or randomly. With 
random access, you must establish the filing system you 
want for a particular application. 


о е Files аге byte-addressed, and you аге not restricted by 
explicit record lengths. You can read the data one byte at a 
time, or in whatever size portions you want. 
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е А new file Наз а size of zero. 05-9 then expands Ше file 
automatically when PRINT, WRITE, or PUT statements 


write beyond the current end-of-file. о 


Examples: 
CREATE #TRANS,"transportation™:UPDATE 
CREATE #SPOOL,"/user4/report"™:WRITE 
CREATE #OUTPATH, пате$ : ИРОАТЕ +ЕХЕС 


Sample Program: 


This procedure CREATEs a directory named TEST and makes it 
the data directory. It creates a file in TEST named Samplefile, 
writes data to the file, then resets the parent directory as the 
data directory. Finally, it deletes Samplefile and TEST. 


PROCEDURE close 
ODIM PATH:BYTE 
SHELL "MAKDIR TEST" 


OCHD "TEST" Q 
CCREATE #PATH,"samplefile":WRITE (+ create a file. 

CKRITE #PATH,"This file is for testing purposes only." 

DHRITE #PATH,"It will be destroyed when this procedure ends." 

DCLOSE #PATH (+ close the file. 

DSHELL "LIST samplefile" 

OCHD ",," 

DSHELL "DELDIR TEST" 

DEND 
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DATA Store numeric and string information 


Syntax: DATA “item”[,“item”,...] 


Function: Stores numeric and string constants to be accessed 
by a READ statement. A DATA line can contain up to 254 
characters. Each item in the list must be separated by 
commas. 


You can place DATA statements anywhere in a procedure that 
is convenient. BASICO9 reads sequentially, starting with the 
first item in the first DATA statement, and ending with the 
last item in the last DATA statement. 


The following rules apply to data items: 


You must place all string data between quotation marks. 


То include quotes in string-type data, use consecutive 
quotation marks, like this: DATA "He said, ""go 
home"" to me". 


You can use RESTORE to reset the data pointer. Using 
RESTORE without an argument resets the pointer to the 
beginning of the data items. Using RESTORE with a 
line number, resets the pointer to the first item in the 
specified line. 


The READ statement can support a list of one or more 
variable names of various types. The data types in DATA 
statements must match the variable types used in the 
corresponding READ statements. 


You can include arithmetic expressions in data items. 
READ causes the expressions to be evaluated and 
returns the result of the expression as the data item. 


Parameters: 


item 


Numeric or string characters. Enclose string 
characters in quotation marks. 
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Examples: ; 
DATA 1.1,1.5,9999,"CAT", "DOG" 
DATA SINCTEMP/25), CUSCTEMP«PI) 
DATA TRUE, FALSE, TRUE, TRUE ,FALSE © 


DATA "The rain in spain","falls mainly оп the 
plain" 


Sample Program: 
This procedure calculates the day of the week for a date you 
enter. А data statement contains the names of the weekdays. 
PROCEDURE weekday 
ODIM X,DAY,MONTH,YEAR,CALC: INTEGER 
ODIM ANUM,BNUM,CNUM,DNUM,ENUM,FNUM,GNUM,HNUM, INUM: 
INTEGER 
DDIM WEEKDAYC7):STRING{9] 
OPRINT USING "S60^","Day of the Week Program" 
OPRINT USING "S60^","For any year after 1752" 
OPRINT 
DINPUT "Enter day of the month as two digits, such 
as 88...",DAY 


OINPUT "Enter month as two digits, such as e 
12..." МОМТН 

DINPUT "Enter year as four digits, such as 

1986...",YEAR 


OFOR X=1 TO 7 

OREAD WEEKDAYCX) 

DNEXT X 

DANUMs INTC.6*1/MONTH2 
OBNUM=YEAR-ANUM 
OCNUM=MONTH+12*ANUM 
ODNUM=BNUM/188 
OENUM=INTCDNUM/4) 
OFNUM=INTCDNUM) 
OGNUM=INTCS*BNUM/4) 
OHNUM=INTC13*CCNUM+19/5) 
DINUM-HNUM*GNUM-FNUM*ENUM*DAY- 1 
DINUMsINUM-7*INTCINUM/7)2*1 

D 


PRINT 
DPRINT "The day of the week on "; DAY; "/"; MONTH; @ 
OPRINT "/"; YEAR; “ is..."; WEEKDAYCINUM) t 


UDATA "Sunday","Monday","Tuesday","Wednesday", 
"Thursday" 

DDATA "Friday","Saturday" 

DEND 
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DATES Provide date and time 


Syntax: DATES 


Function: Returns the date and time. The OS-9 internal date 
is kept in the format: 


yearlmonthiday hour:minutes:seconds 


If your OS-9 Startup file contains the SETIME command, the 
system asks you to enter the date and time whenever it boots. 
If it does not contain the SETIME command, the date and 
time start from 86/09/01:00:00:00. 


You can use the normal string functions to access the data 
contained in DATE$, but you cannot use functions or opera- 
tions that attempt to change or append to its values. To reset 
the date or time or both, use the SHELL command, such as: 


SHELL "SETIME" 
Parameters: None 


Examples: 
PRINT DATE$ 


Sample Program: 


This program is essentially the same as the sample program for 
the DATA statement, except that it gets the day, month, and 
year from DATE$. 


PROCEDURE date 

ODIM X,DAY ,MONTH, YEAR, CALC: INTEGER 

ODIM ANUM,BNUM,CNUM, кум, ENUM , NUM , GNU, HNUM, [NUM : INTEGER 
DDIM WEEKDAYC7) : STRINGS) 

QMONTH=VALCMIDS(DATES,4,2)) (+ get month from DATES. 
QDAY=VALCMIDS(DATES,7,2)) (+ get day from DATES. 
DYEAR*VAL("19"+LEFTS(DATES,2)) (+ get year from DATES. 


QFOR X=1 TO 7 
DREAD WEEKDAY(X) 
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DNEXT X 

DARUM=INT(,6+1/MUÜNTH) 

DIBNUMs YEAR- ANUM 
Оскумемоктна 1 2 ANUM 
ODNUM=BNUM/ 180 

DENUMs INTCDNUM/4) 

OFNUM= LNTCDNUMD 
Понуме INTCS Вкум/4) 

Онкуме ТО ЗеССНИМ+ 12/32 
COINUM=HNUM+GHUM-FNUM+ENUM+ DAY- T 
CQUNUM=[NUM-7+ [NTCINUIH/?)+4 
OPRINT 

OPRINT "Today is "; WEEKDAYCINUM) 


ODATA "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday" 
DDATA "Saturday" 
ПЕН) 
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DE G Return trigonometric calculations in 
degrees 


Syntax: DEG 


Function: Causes a procedure to calculate trigonometric val- 
ues in degrees. If you do not include the DEG statement, pro- 
cedures produce radian values. 


Parameters: None 


Examples: 
DEG 


Sample Program: 


This procedure calculates the sine, cosine, and tangent for a 
value you enter. Because it uses the DEG statement, it displays 
the results in degrees. 


PROCEDURE degcalc 
ODIM NUM:REAL 


DDEG 

DINPUT "Enter a number..." ,NUM 

OPRINT 

OPRINT "Number","SINE","COSINE", "TAN" 

OPRINT "------------------------------------------ 


OPRINT NUM,SINCNUM) ,COSCNUMD , TANCNUM) 
OPRINT 
DEND 
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DELETE Erase a disk file 


Syntax: DELETE “pathname”. 


Function: DELETE removes a file from disk storage and 
releases the portion of the disk on which it resides. When you 
DELETE a file, it is permanently lost. 


Parameters: 
pathname Тһе complete pathlist to the file you want to 
delete, including the drive and one or more 
directories, if appropriate. You must surround 
the pathlist with quotation marks. 
Examples: 


DELETE "myfile" 
DELETE "/D1/ACCOUNTS/receivables" о 


Sample Program: 


This procedure creates a file named Samplefile, writes data to 
the file, then closes it. It then lists the file before deleting it. 


PROCEDURE close 

DDIM PATH: BYTE 

CREATE #PATH,"samplefile":WRITE (+ create a file. 

DMRITE #PATH,"This file is for testing purposes only." 
DWRITE #PATH,"It will be destroyed when this procedure ends." 
COCLOSE #PATH (+ close the file. 

DSHELL "LIST samplefile" 

DDELETE "samplefile" 

ПЕН) 
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DIM Assign variable storage 


Syntax: DIM variablef,...][:type]l; variable]L,...][: typel[...] 


Function: Assigns storage space and declares types for vari- 
ables, arrays, or complex data structures. 


Parameters: 
variable А simple variable, an array structure, or a 
complex data structure. 
type BYTE, INTEGER, REAL, BOOLEAN, 
STRING, or user defined. 
Notes: 


е You declare simple arrays with DIM by using the variable 
name, without a subscript. If you do not explicitly declare 
variables, the system makes them type real unless they are 
followed by a dollar sign ($). The system dimensions vari- 
ables ending with a dollar sign ($) as strings, with a length 
of 32 bytes. You must declare types of all other simple vari- 
ables as to type. 


е You can declare several variables of the same type by sepa- 
rating them with commas. To separate variables of differ- 
ent types, follow each type group with a colon, the type 
name, and then a semicolon. 


* Define a maximum length for a string variable by enclosing 
the length in brackets following the type, like this: 


DIM name:stringl25] 
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If you до not define а maximum length, BASIC09 uses а 
default length of 32 characters. You can declare a shorter 
length or a longer length, up to the capacity of BASIC09's 
memory. If you try to extend a string beyond its declared 
length, or beyond the default length, the system ignores all 
extra characters. Thus the following: 


DIM name:stringl18] 
name = "Abbernathinsky" 


produces the string: 
Abbernathi 


Arrays can have one, two, or three dimensions. The DIM 
format for dimensioned arrays is the same as for simple 
variables, except that you must follow each array name 
with a subscript, enclosed in parentheses, to indicate its 
size. The maximum array size is 32767. 


Arrays can be either of the standard BASICO9 type or of a 
user-defined type. For information on creating your own 
types for simple variables, arrays, and complex data struc- 
tures, see TYPE. 


Examples: 


DI 
DI 
DI 


DI 
21 


DI 
no 


M logical:BÜOLEAN 
M a,b,c: INTEGER 
M name,address,zip:STRING 


M name:STRINGL251; address:STRINGI381; 
p: INTEGER 


М no1,no2,no3:REAL ; по4 , поб, поб: INTEGER; 
7:ВҮТЕ 
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Sample Program: 


This procedure randomly selects letters and vowels to create six- 
letter words that might look like alien names. It first DIMs nine 
string variables to contain the letters selected for each name. It 
DIMs two integer variables to provide a loop counter and to store 
the number of names you request. 


When asked, type the number of names you want to have the 
procedure generate. 


PROCEDURE alien 

ODIM B,BEGIN,F,FINISH:STRING 
ODIM VOWELS ,VOWEL1 ,VOWEL2:STRING 
DDIM MID1,MID2:STRING 

DDIM T,RESPONSE: INTEGER 

UVDHELS -"aeicuy" 


DINPUT "How many alien names do you want to 
see?..." RESPONSE 
ÜBEGIN-"ABCDFGHJKLMNPRSTVUXZ" 

OF INISH="ehlmnprstvwyz" 


OFOR Т=1 TO RESPONSE 
OB=MID$CBEGIN,RNDC19)+1,1) 

OF =MID$CFINISH,RNDC12)+1,1) 
OM1ID1=CHR$CRNDC25)+97) 
OMID2=CHR$CRNDC25)+97) 

OVOWEL1 =MID$CVOWELS ,RNDCS)+1,1) 
OVOWEL2=MID$CVOWELS ,RNDCS)+1,1) 

ÜPRINT B; VOWEL1; MID1; MID2; VOWEL2; Е, 
ОМЕХТ T 


OPRINT 
DEND 
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DO Execute procedure lines in a loop 


Syntax: WHILE expression DO 
proclines 
ENDWHILE 


Function: Establishes a loop that executes the procedure lines 
between DO and ENDWHILE as long as the result of the 
expression following WHILE is true. Because the loop is 
tested at the top, the lines within the loop are never executed 
unless expression is true. 


Parameters: 
expression A Boolean expression (produces a result of 
True or False). 
proclines Are program lines to execute if the expression 


is true. 
See WHILE/DO/ENDWHILE for more information. 
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ELSE Execute alternate action 


Syntax: IF condition THEN 
action 
ELSE 
secondary action 
ENDIF 


Function: ELSE provides access to a secondary action within 
an ПУТНЕМ test. When the condition tested by IF is not 
true, BASICO9 executes the secondary action preceded by 
ELSE. 


Parameters: 

condition A Boolean expression (produces a result of 
True or False). 

action A line number to which the procedure is to 
transfer execution, or a program statement. If 
action is a line number, do not include the 
ENDIF statement in the IF test. 

secondary One or more program statements. 

action 


For more information, see IF/THEN/ELSE 
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END Terminate a procedure 


Syntax: END “ех?! 


Function: Ends procedure execution and returns to the calling 
procedure, or to the highest level procedure. If you provide 
output text for END, it functions in the same manner as 
PRINT. You can use END several times in the same proce- 
dure. END is not required as the last statement in а 
procedure. 

Parameters: 


text A literal string or a string-type variable. 


Examples: 
END "Program Terminated" 
LAST$="Session over" 
END LASTS 

Sample Program: 


This procedure calculates a loan’s term, using END to termi- 
nate routines. 


PROCEDURE loaner 


ODIM YOUPAY,PRINCIPLE,INTEREST,NUMPAY,YEARS, 
MONTHS: REAL 

ODIM RESPONSE:STRING[1] 

OREPEAT 

OPRINT 

OPRINT USING "S45^","Loan Terms" 

OPRINT 

DINPUT " Amount of Regular Payments..." ,YOUPAY 
OINPUT " Enter the Principle..." ,PRINCIPLE 
DINPUT " Enter the Annual Interest Rate...", 
INTEREST 

DINPUT " Enter the Number of Payments 
Yearly..." ,NUMPAY 
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OYEARS=-€LOGC1-PRINCIPLE*CINTEREST/100)/ 
CNUMPAY *YOUPAY))/CLOGC1+INTEREST/168/NUMPAY)* 
NUMPAY)) 

OMONTH=INTCYEARS#12+.5) 

OYEARS=INTCMONTH/12) 

OMONTH=MONTH-YEARS#12 

OPRINT ~ The Term of Your Loan is "; YEARS; " 
years and "; MONTH; " months." 

ÜINPUT "Calculate another or Quit CC/Q)?...", 
RESPONSE 

JUNTIL RESPONSE«»"C" AND RESPONSES "o" 

DEND "Goodbye...I hope I helped you." 
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ENDE XIT Leave loop if a condition is True 


Syntax: EXITIF condition THEN 
proclines 
ENDEXIT 


Function: ENDEXIT terminates an EXITIF test. You always 
use EXITIF/THEN/ENDEXIT inside a procedure loop. If the 
Boolean expression tested by EXITIF is true, BASICO9 exe- 
cutes the program statements between THEN and ENDEXIT 
and then transfers program operation outside the loop. If the 
condition tested by EXITIF is not true, loop execution contin- 
ues at the statement following ENDEXIT. 


Parameters: 
condition А comparison operation that returns either 
True or False, such as А-В, А<В, or 
А-В-С. 
proclines One or more statements to perform if the Boo- 


lean expression tested by EXITIF is True. 
For more information, see EXITIF/THEN/ENDEXIT 
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ENDIF Close IF statement 


Syntax: IF condition THEN 
action 
[ELSE 
secondary action] 
ENDIF 


Function: ENDIF terminates an IF/THEN condition test. If 
the condition tested by IF is true, BASICO9 executes the 
statements between THEN and ENDIF. If the condition tested 
by IF is not true, BASICO9 transfers execution to the proce- 
dure line following ENDIF or (optionally) executes the state- 
ments following ELSE. 


Parameters: 

condition A Boolean expression (produces a result of 
True or False). 

action A line number to which the procedure is to 
transfer execution. Action can also be a pro- 
gram statement. If action is a line number, do 
not include the ENDIF statement in the IF 
test. 

secondary A program statement. 

action 


For more information, see IF/THEN/ELSE/ENDIF. 
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ЕК DLOOP Close LOOP statement 


Syntax: LOOP 
statemient(s) 
ENDLOOP 


Function: ENDLOOP terminates a procedure loop established 
by the LOOP command. BASIC09 endlessly executes all proce- 
dure statements between LOOP and ENDLOOP repeatedly 
unless a condition test within the loop (such as EXITIF/ 
THEN/ENDEXIT, or IF/THEN) transfers execution outside of 
the loop. 


Parameters: 


statement(s) Опе or more procedure lines that execute 
within the loop. 


For more information, see LOOP/ENDLOOP. 
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ENDWHILE Close WHILE statement 


о Syntax: WHILE condition DO 
proclines 
ENDWHILE 


Function: Forms the bottom of a WHILE loop. WHILE causes 
the procedure lines between DO and ENDWHILE to execute 
as long as the resuit of the expression following WHILE is 
true. Because the loop is tested at ihe top, the lines within 
the loop are never executed unless the expression is true. 


Parameters: 
condition A Boolean expression (produces results of True 
or False). 
proclines Are program lines to execute if the expression 


© is true. 
Еог more information, see WHILE/DO/ENDWHILE. 
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EOF Test for end-of-file 


Syntax: EOF(path) 


Function: Tests for the end of a disk file. The function returns 
a value of True when it encounters an end-of-file; otherwise, it 
returns False. Use EOF with a READ or GET statement. 


Parameters: 
path The number of the path you are accessing. 
BASICO9 automatically stores a path number 
into the variable you specify during a 
CREATE or OPEN operation. 
Examples: 


IF EOFC#PATH) THEN 
CLOSE #PATH 
ENDIF 


Sample Program: 


This procedure redirects a listing of the current directory into a 
file named Dirfile. It then lists Dirfile to the screen. EOF tells 
the WHILE/ENDWHILE loop when the READ operation reaches 
the end of the file. 


PROCEDURE readfile 

DDIM A:STRING[801 

DDIM PATH:BYTE 

DSHELL "DIR > dirfile" 
DOPEN *PATH,"dirfile":READ 
OWHILE NOT EOFC#PATH) DO 
OREAD #PATH,A 

DPRINT A 

QENDWHILE 

DCLOSE #РАТН 

DEND 
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ERR Return error code 


Syntax: ERR 


Function: Returns the error code of the most recent error. 
BASICO9 automatically sets the ERR code to zero after you 
reference it. ERR is only useful when used in conjunction with 
BASICO9's ON ERROR error trapping functions. 


See Appendix A for a list of all BASIC09 error codes. 
Parameters: None 


Examples: 


ERRNUM = ERR 

IF ERRNUM = 218 THEN 

PRINT "File already exists. Please use another 
filename." 

ENDIF 


Sample Program: 


This procedure displays the contents of a file you select. If the 
file doesn't exist (Error 216, Pathname not found), the procedure 
uses ERR to tell you. If an error other than Error 216 occurs, 
the procedure displays 1 сап”і handle error хх, where xx is 
the code of the error. 
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PROCEDURE readfile 

ODIM READFILE:STRIKG; A:STRING(8@]; PATH: BYTE 

1UDINPUT "Туре the pathlist of the file to read...",READFILE 
CON ERROR GOTO 100 (+ if an error occurs, skip to line 108. 
DOPEN £PATH,READF [LE : READ 

QWHILE EOFCAPATH)O TRUE DO 

CREAD #PATH,A 

DPRINT A 

DENDRHILE 

OCLUSE /РАТН 

CEND 

1GEDERRNUM=ERR (+ store the error code in ERSNUM. 

DIF ERRNUMs216 THEN (š if file doesn’t exist say so, 

DPRINT "I can't find the file...Please try again." 

ПОК ERROR 

D60T0 18 

DENDIF 

OPRINT "Sorry, I can't handle error number "; ERRNUM (+ other error. 
DCLOSE £PATH 

ОЕМ 
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ERROR Simulate an error 


Syntax: ERROR code 


Function: Simulates the error specified by code. You would 
mainly use this command to test ON ERROR GOTO routines. 
When BASICO9 encounters an ERROR statement, it proceeds 
as if the error corresponding to the specified code has 
occurred. Refer to Appendix A for a listing of error codes and 
their meanings. 


Parameters: 


code The code of the error you want to simulate. 
Examples: 


ERROR 207 

ERRNUM = ERR 

IF ERRNUM = 207 THEN 

PRINT “Memory is full. The current data is being 
saved to disk." 

ENDIF 


Sample Program: 


This program creates a file named Testl. Before creating the 
file, it checks to see if it already exists. If the file exists, the pro- 
cedure deletes it. An error trap catches any error that might 
occur. To test if the trap works for Error 216, “Pathname not 
found", the statement ERROR 216 is inserted as the fourth line. 
After testing the trap to make sure it works, delete this line to 
use the procedure. 
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PROCEDURE errortest 
ODIM PATH,ERRNUM:BYTE; RESPDNSE:STRING[1] 
DBASE 6 


DON ERROR GOTO 19 (+ set error trap 
DERROR 216 €* simulate error 
DDELETE "test1" 

OGOTO 199 


ТОГЕВЕНИМЕЕКЕ 

DIF ERRNUM=216 THEN 

DINPUT "File doesn't exist...continue? 

CY/N)", RESPONSE 

DIF RESPONSE=“N" THEN 

DEND "Procedure terminated at your request..." 
DENDIF 


DENDIF 

DON ERROR Ся turn off error trap. 
ТОВПСКЕАТЕ #PATH,“testi":WRITE 

DEND 
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EXITIF/THEN/ENDEXIT 


Exit from loop if a condition is true 


Syntax: ЕХІТІЕ condition THEN 
statement 
ENDEXIT 


Function: Use these statements with loop constructions (par- 
ticularly LOOP and ENDLOOP) to provide an exit for what is 
otherwise an endless loop. EXITIF performs a test of a Boo- 
lean expression, such as A<B. The THEN statement precedes 
any operation you want to execute if the expression is true. 
You must always follow EXITIF with an ENDEXIT. 


If the Boolean expression following an EXITIF is false, execu- 
tion of the program transfers to the statement immediately 
following the body of the loop (after the ENDEXIT statement). 
Otherwise, BASICO9 executes the statement(s) between 
EXITIF and ENDEXIT, then transfers control to the state- 
ment following the body of the loop. 


You can also use EXITIF and ENDEXIT with types of loop 
constructions other than LOOP/ENDLOOP. 


Parameters: . 
Boolean A comparison operation that returns either 
expression True or False, such as A=B, A<B, or 
А-В-С. 
statement Ап operation to be performed if the Boolean 


expression tested by EXITIF is True, such as: 
PRINT ñ is less than B. 
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Examples: 


LOOP 

COUNT=COUNT+1 © 
EXITIF COUNT»188 THEN 

DONE = TRUE 

ENDEXIT 

PRINT COUNT 


X = COUNT/2 
ENDLOOP 


Sample Program: 


This procedure simulates a gambling machine by randomly 
selecting among several fruit names and displaying them. It 
gives you a starting stake of $25 and, depending on the combi- 
nation of fruit selected, it adds or subtracts from your stake. 


If your stake drops to zero, an EXITIF statement ends the proce- 
dure and tells you that you’re broke. 


PROCEDURE onearm 

ODIM FRUIT1,FRUIT2,FRUIT3,STAKE: INTEGER; FRUITC8): 
STRING([6] Q 
OSTAKE=25 

OPRINT \ PRINT "You have $"; STAKE; " to play 

with." 

OFOR T=1 TO 8 

DREAD FRUITCT) 


ПМЕХТ T 
DLOOP 

DFRUIT1=RNDC7)+1 AFRUIT2=RNDC7)+1 \FRUIT3=RNDC7)+1 
OPRINT FRUITCFRUIT12; " "; FRUITCFRUIT2); но; 
FRUITCFRUIT3) 


OIF FRUITCFRUIT1)=FRUITCFRUIT2) AND FRUITCFRUIT1)= 
FRUITCFRUIT3) THEN STAKE=STAKE+19 

DELSE 

ПІР FRUITCFRUIT1)*FRUITCFRUIT2) OR FRUITCFRUIT12* 
FRUITCFRUIT3) OR 

OFRUITCFRUIT2)=FRUITCFRUIT3) THEN 


ОЅТАКЕ + 5ТАКЕ + 1 
а о 


П5ТАКЕ«5ТАКЕ-1 
DENDIF 
DENDIF 
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OREM exit play loop is stake is less than $1. 
DEXITIF STAKE<1 THEN 

OPRINT 

OPRINT "Уоц”ге Busted. ..Better go home." 
DENDEXIT 


DPRINT "Your stake is now 5"; STAKE; "." 
OPRINT 

OPRINT 

ÜINPUT "Press ENTER to pull again...",Z$ 
DENDLOOP 

JEND 

ODATA "ORANGE", "APPLE", " CHERRY", "LEMON" , "BANANA" 
ODATA "PEAR", "PLUM" ,"PEACH" 
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EXP Return natural exponent 


Syntax: EXP(number) © 


Function: Returns the natural exponent of number, that is, е 
(2.71828183) to the power of number. Number must be 
positive. 


This function is the inverse of the LOG function. Therefore, 
number = EXP(LOG(number)). 
Parameters: 


number A positive value. 


Examples: 
PRINT ЕХРС2) 


Sample Program: о 


This procedure calculates Ше exponent of values in Ше range 
0-1. 


PROCEDURE exprint 

DFOR Т=0 TO 1 STEP .63 

OPRINT EXPCT),EXPCT+.01),EXPCT+. 02) 
ONEXT T 

DEND 
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FALSE Assign Boolean value 


Syntax: уагіаЫе= FALSE 


Function: FALSE is a Boolean function that always returns 
False. You can use FALSE and TRUE to assign values to Boo- 
lean variables. 


Parameters: None 


Examples: 


DIM TEST: BOOLEAN 
ТЕБТ- РА! 5Е 


Sample Program: 


The procedure uses a Boolean variable to store True or False, 
depending on whether you answer some questions correctly or 
incorrectly. 


PROCEDURE quiz 

DIM REPLY,VALUE:BOOLEAN; ANSWER:STRING(1); 
QUESTION: STRING([8@] 

OFOR Т=1 TO 5 

DREAD QUESTION,VALUE 

OPRINT QUESTION 

OPRINT "(ТО = TRUEDOOOOOOCF) = FALSE" 
OPRINT "Select T or F:00"; 

ПОЕТ #1,ANSWER 

DIF ANSWER="T" THEN 

OREPLY=TRUE 

DELSE 

OREPLY=FALSE 

ОЕМОТЕ 


DIF REPLY=VALUE THEN 
OPRINT А PRINT "That’s Correct...Good Show!" 
O&LSE 

DPRINT "Sorry, you're wrong...Better Luck next 
time." 

DENDIF 

OPRINT \ PRINT N PRINT 


—————————————————— 
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ONEXT Т 

ODATA "Іп computer talk, CPU stands for Central 
Packaging Unit.", FALSE 

DDATA "The actual value of 64K is 65536 © 
bytes." ,TRUE 

DDATA "The bits in a byte are normally numbered 0 
through 77", TRUE 

ODATA "BASIC09 has four data types.",FALSE 

CDATA “The LAND function is a Boolean type 
operator.",FALSE 

DEND 
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FIX Round a real number 


Syntax: FIX(value) 


Function: Rounds a real number to the nearest whole number 
and converts it to an integer-type number. Fix performs a 
function that is the opposite of the FLOAT function. 


Parameters: 


value Any real number. 


Examples: 


A=RNDC16) 
PRINT ЕТХСА) 


Sample Program: 
© This procedure displays Ше FIXed values of seven constants. 


PROCEDURE printfix 
DPRINT FIXC1.2) 
DPRINT FIXC1.3) 
OPRINT FIXC1.5) 
OPRINT FIXC1.8) 
OPRINT FIXC99.566666) 
OPRINT FIXCS@.1) 
OPRINT ЕТХС. 7654321) 
OPRINT FIXC-12.44) 
OPRINT FIXC-9.99) 
DEND 
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FLOAT Convert from integer or byte to real 


Syntax: FLOAT(value) 


Function: Converts an integer- or byte-type value to real type. 
FLOAT performs a function that is the opposite of the FIX 
function. 


Parameters: 


value An integer- or byte-type number. 


Examples: 


DIM TEST: INTEGER 
TEST=44 
PRINT FLOATCTEST)/3 


Sample Program: 


This procedure uses FLOAT to produce a real number result of 
an inch to centimeter conversion. 


PROCEDURE convert 

ODIM T: INTEGER; MEASURE:STRING[11] 
OFOR T=1 TO 19 

OIF Тз1 THEN 

OMEASURE="centimeter " 

DELSE 

DMEASURE-"centimeters" 

DENDIF 

OPRINT T; " "5 MEASURE; " is "; FLOATCTO*.3937; 
" inches." 

ПМЕХТ T 

OEND 
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FOR/ NE ХТ/ ӨТЕР Establish а loop 
° š 


Syntax: 

FOR variable = init уа TO end val [STEP value] 
[procedure statements} 

NEXT variable 


Function: Establishes а procedure loop that lets BASICO9 exe- 
cute one or more procedure statements a specified number of 
times. The variables you use can be either integer or real type 
and can be negative, positive, or both. Loops using integer 
values execute faster than loops using real values. 


BASICO9 executes the lines following the FOR statement until 
it encounters a NEXT statement. Then it either increases or 
decreases the initial value by one (the default) or by the value 


given STEP. 
m | Parameters: 
variable Any legal numeric variable name. 
init val Any numeric constant or variable. 
end val Any numeric constant or variable. 
value Any numeric constant or variable. 
procedure Procedure lines you want to be executed 
statements within the loop. 
Notes: 


e If you provide an initial value that is greater than the final 
value, BASICO9 skips the program loop entirely unless you 
specify a negative STEP value. Specifying a negative value 
for STEP causes the loop to decrement from the initial 
value to the end value. 
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е When execution reaches the NEXT statement in a positive 
stepping loop, and the step value is less than or equal to 
the end value, BASICO9 branches back to the line after 
FOR and repeats the process. When the step value is 
greater than the end value, BASICO9 transfers execution to 
the statement following the NEXT statement. 


е When execution reaches the NEXT statement in a negative 
stepping loop, and the step value is greater than or equal 
to the end value, BASICO9 branches back to the line after 
FOR and repeats the process. When the step value is less 
than the end value, execution continues following the NEXT 
statement. 


Examples: 


FOR COUNTER = 1 to 100 STEP .5 
PRINT COUNTER 
NEXT COUNTER 


FOR X = 18 ТО 1 STEP -1 
PRINT X 
NEXT X 


РОК TEST = А TO B STEP RATE 
PRINT TEST 
NEXT TEST 


Sample Program: 


This procedure uses two nested FOR/NEXT loops to produce a 
multiplication table. 


PROCEDURE multable 
[PRINT USING "6457", "MULTIPLICATION TABLE" 
DPRINT 

ODIM I,J:INTEGER 

ПЕПЕ Те1 TO 9 

OFOR J=1 TO 9 

ШЕ 921 THEN 

ПРВІМТ I*J; ТАВС5*Ј); 
DELSE PRINT I*J; "|"; 
DENDIF 

DNEXT J 

ШЕ I=1 THEN 

DPRINT "" 


11-56 


BASIC09 Command Reference / 11 


ОРВІМТ "--------------------------------------- 


DENDIF 
DPRINT 
ОМЕХТ I 
DEND 
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GET Read а direct-access file record 


Syntax: GET #path,varname Q 


Function: Rezds a fixed-size binary data record from a file or 
device. Use GET to retrieve data from random access files. 


Although you usually use GET with files, you can also use it 
to receive data for any outputting device, such as a keyboard 
or another computer. By dimensioning a string variable to the 
length of input you want, you can use GET to read a specified 
number of keystrokes, then continue program execution with- 
out requiring (ENTER) to be pressed. 


For information about storing data in random access files, see 
Chapter 8, “Disk Files.” Also see PUT, SEEK, and SIZE. 
Parameters: 


path A variable name you choose in which BASIC09 9 
stores the number of the path it opens to the 
device you specify or one of the standard I/O 
paths (0, 1, or 2). 


varname The variable in which you want to store the 
data read by the GET statement. 
Examples: 
GET #PATH,DATA$ 
GET *1,RESPONSES 
GET *INPUT,INDEXCX) 


Sample Program: 


This procedure directs a directory listing to a file named Dirfile. 

GET then reads the file, one character at a time in order to 
determine which characters are valid filename characters. The о 
procedure creates a file containing all the filenames in Ше 
directory. 
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PROCEDURE filenames 

ODIM DIRECTORY ,FILENAME:STRING; CHARACTER:STRING(1]; FILES(125):STRING(1S); 
PATH, COUNT, T: INTEGER 

CCOUNT=8 

OFILENAME="" 

CFOR Те? TG 125 (+ initialize array elements to null. 

OFILES(T)="" 

СНЕХТ T 

DINPUT “Pathlist of directory to read...",DIRECTORY (+ dir to copy. 

CON ERROR SOTO 18 

[DELETE "dirfile" (è if dirfile already exists, deiete it. 

1000K ERROR 

SHELL "DIR "*PIRECTORY*" > dirfile" (+ copy directory into file. 

COPEN fPATH,"dirfile":READ (+ open the file for reading. 

UREPEAT 

OREM Get characters from the file until the first carriage return - the 
beginning of the first filename. 

GET #PATH,CHARACTER (+ get characters from the file, 

QUNTIL CHARACTER=CHR$(13) 

OREM 

200L00P 

DEXITIF EOFCAPATH) THEN 

00070 200 (* quit when end of file, 

DENDEXIT 

OREM get a character from the file until it finds a non-valid filename 
character. 

ПОЕТ #PATH, CHARACTER 

OREM : 

DEXITIF CHARACTERCs" " OR CHARACTER "2" THEN 

06070 168 

DENDEXIT 

OFILENAME=FILENAME+CHARACTER (+ build the filename. 

ПЕНОСООР 

1808DMHILE КОТСЕОЕСЯРАТН)) DO 

GET 4PATH,CHARACTER (*-check for non-valid filename characters, 
ПЕПТІР CHARACTER?" " AND CHARACTER<="2" THEN (+ check if valid char, 
OCOUNT=COUNT+1 

DFILESCCOUNT)sFILEMAME (+ store filename in array. 

OPRINT FILENAME, (+ display the extracted filename, 
D 
П 


FILENAMEs"" (+ set variable to NULL. 
FILENAME=FILENAME+CHARACTER (+ last character begins new filename. 
[60Т@ 28 (+ go get the rest of filename. 
DENDEXIT 
DENDHHILE 
2BRLICLOSE #PATH 
Е 
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DDELETE "dirfile" (+ names аге all іп array so delete file, 
DCREATE /PATH,"dirfile":HRITE (+ create the file again, 


OFOR Т=1 TO COUNT 

QWRITE #PATH,FILES(T) (+ fill the file with individual filenames. © 
ПНЕХТ Т 

ПС105Е /РАТН 

OPRINT 

OPRINT "СО20000*Тһе directory has "; COUNT; “ entries" 

OPRINTO"DOCOCOD They are now stored in a file named Dirfile." 

ПЕН) 
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GOSUB/RETURN 


Jump to subroutine/ Return from subroutine 


Syntax: | GOSUB linenumber 


Function: Branches program execution to the specified line 
number. 


BASICOO9 lets you write programs with line numbers or with- 
out. You can also mix numbered and un-numbered lines 
within a single procedure. This means that, to use GOSUB, 
you need to number only the first line of the subroutine to 
which you want to branch. 


Every subroutine you access with GOSUB must contain a 
RETURN statement. You can call a subroutine in this man- 
ner as many times as you want. When BASICO9 encounters 
the RETURN, it transfers program execution to the line fol- 
lowing the GOSUB statement. 


You can precede GOSUB with a test statement, such as IF or 
WHEN, that makes branching conditional. 


You can nest GOSUB statements to any depth, depending on 
your computer's free memory. 


Parameters: 


linenumber The number of the line where procedure exe- 
cution is to continue. 


Examples: 
GOSUB 199 
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Sample Program: 


The following procedure asks you for two numbers and an opera- 
tor. It determines the line to jump to by the position of the oper- 
ator in a table. GOSUB sends the procedure to execute the 
proper routine. RETURN sends the execution back to the main 
routine. To quit, enter a negative value. 


PROCEDURE calc 

ODIM NUM1,NUM2:REAL; DP:STRING(1]; А: INTEGER 
ADINPUT “NUMBER 1 “;NUM1 

DIF NUM1«8 THEN 

DEND 

DENDIF 

DINPUT "NUMBER 2 "; МОМ2 

DINPUT “OPERATOR "; ОР 

DA-SUBSTRCOP ," *-»/^") 

DON А GOSUB 19,26,38,48,58 

DGOTD 1 

1@OPRINT NUM1+NUM2 \ RETURN 
2G0PRINT NUM1-NUM2 N RETURN 
380PRINT NUM1*NUM2 N RETURN 
480PRINT NUM1/NUM2 \ RETURN 
S@OPRINT NUMI NUM2 \ RETURN 
DEND 
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IF/THEN/ELSE/ENDIF 


Test a Boolean expression 


Syntax: IF condition THEN linenumber 
[ELSE 
secondary action 
ENDIF] 


IF condition THEN 
action 

[ELSE 

secondary action] 
ENDIF 


Function: Tests a Boolean expression and executes action if the 
expression is true. Optionally, the statements execute a sec- 
ondary action if the expression is not true. Each IF statement 
must be accompanied by THEN. If action is a line number, 
you can omit the ENDIF statement. For instance, both of the 
following statements operate in the same manner: 


IF T=5 THEN 18 

IF Т=5 THEN 

GOTO 18 

ENDIF 
Parameters: 


condition A Boolean expression (produces True or False). 


linenumber A line to which the procedure is to transfer 
execution if condition is true. 


action One or more procedure statements to be exe- 
cuted if condition is true. 

secondary One or more procedure statements to execute 

action if condition is false. 
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Examples: 
IF A>B THEN 100 


IF A<B THEN 108 
ELSE 
А=А-1 
ENDIF 


IF TEST=TRUE THEN 
PRINT "Тһе test is a success..." 
ENDIF 


IF A < В THEN 

PRINT "A is less than В" 
ELSE 

PRINT "В is less than А" 
ENDIF 


Sample Program: 


The following procedure is a purge procedure. Use it only with 
the GET Sample Program to delete one or more files from your 
current directory. 


The Filenames procedure (see GET) stores the current directo- 
ry’s filenames in Dirfile. This procedure reads Dirfile, displays 
all the filenames, then asks you for a wildcard. Type in charac- 
ters that identify a group of files you want to delete. The pro- 
gram deletes all files that contain, in the same order and case, 
the characters you type. 


For instance, if you have four files named Test, Filel, File2, and 
File3, and you type a wildcard of “File,” the procedure deletes 
Ейе1, File2, and File3, but does not delete Test. Delete all of the 
files in a directory by typing “*” as the wildcard. 


Use this program carefully. Be sure you are in the right 
directory and that the wildcard characters you type are not con- 
tained in filenames other than the ones you want to delete. You 
might want to add a prompt to the procedure that lets you con- 
firm each deletion before it happens. 
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PROCEDURE purge 

ODIM PATH: INTEGER 

DDIM NAMEC186):STRING 

DDIM WILDCARD:STRING 

OX=6 

DOPEN £PATH,"dirfile":READ 

QWHILE NOTCEOFC#PATH)) DO 

OX=X+4 

OREAD 4PATH,NAMECX) 

DENDHHILE 

DFOR Т=1 TO X 

OPRINT NAMECTO, 

DNEXT T 

DINPUT “Wildcard Characters..." ,WILDCARD 
OFOR T=1 TO X 

DON ERROR GOTO 186 

ШЕ SUBSTRCWILDCARD,NAMECT))>@ OR WILDCARD-"«" 
THEN 

OPRINT "DELETING "; NAMECTO; " ...... E 
UDELETE NAMECT) 

DENDIF 

100МЕХТ Т 

DEND 

1000PRINT "ж ж ж ERROR + * ж "; NAMECT); " cannot 
be deleted..continuing." 

OGOTO 19 
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ІМКЕҮ Read а Кеургез5 


Syntax: RUN INKEY(string) о 


Function: Reads a keypress, and stores Ше character of the 
key in the specified string variable. 


Parameters: 
string is a string variable into which INKEY stores 
the character you press. 
Examples: 


DIM CHAR:STRING(1] 
CHAR="" 

WHILE CHAR="" DO 
RUN ІМКЕҮССНАВ» 
ENDWHILE 


PRINT ASCCCHAR2 о 
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Sample Program: 


PROCEDURE Calculate 

ODIM CHAR:STRING(1] 

ODIM LOOKUP:STRING([73 

DDIM FIRST,SECOND:REAL 

ODIM FLAG: INTEGER 

ПЕ ООКИР е" + - + л>" 

1 FLAG=@ \CHAR=""* 

OPRINT "Enter the first number to evaluate..."; 
DINPUT FIRST 

OIF FIRST-0 THEN 


OGOTO 188 
DENDIF 
DPRINT "Enier the second number То evaluate..."; 


БІМРУТ SECOND 

ÜPRINT "Press the key of the operator you want to 
use..." 

OPRINT "+ = # /5»,.,4; 

ПЫНІШЕ CHAR="" DO 

ОВОМ INKEYCCHAR) 

DENDWHILE 

OPRINT 

OF LAG=SUBSTRCCHAR, LOOKUP) 

DON FLAG GOTO 10,20,30,40,50,60,70 

10 PRINT FIRST*SECOND А GOTO 1 

20 PRINT FIRST-SECOND \ GOTO 
38 PRINT FIRST*SECOND \ GOTO 
4@ PRINT FIRST/SECOND \ GOTO 
50 PRINT FIRST^SECOND \ GOTO 
60 PRINT FIRST<SECOND А GOTO 
70 PRINT FIRST>SECOND \ GOTO 1 

100 PRINT "Procedure Terminated Due to 0 
Input..." 

ПЕКО 


—— — l2 
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INPUT Get data from a device path 


Syntax: INPUT [#path,] [prompt] variable [,variable...] 


Function: INPUT accepts input from the specified path. (The 
default is the keyboard.) When a procedure encounters 
INPUT, it displays a question mark and awaits data from the 
specified path. If you provide a string type prompt for INPUT, 
it displays the text of the prompt, rather than a question 
mark. 


INPUT stores the data it collects in the variable you specify. 
The type of the receiving variable must match the type of 
data received. 


Because INPUT sends data (the question mark prompt or the 
user-specified string prompt), it is really both an input and an 
output statement. This means that, if you use a path other 
than the standard input path, you should not use the 
UPDATE mode. If you do, the prompts produced by INPUT 
write to the file specified by the path number. 


If the data received does not match the type of data INPUT 
expects, it displays the message: 


**INPUT ERROR - RETYPE** 


followed by a new prompt. You must then enter the entire 
input line, of the correct type, to satisfy INPUT. For more 
information, see GET. 
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Examples: 
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Either a variable containing the path number, 
or the absolute path number to the file or 
device from which you want to receive input. If 
you want to receive input from the keyboard, 
do not include a path number. 


Text you type as a message to be displayed 
when BASICO09 executes an INPUT statement. 


The variable name in which you want to store 
the data received by INPUT. The type of vari- 
able must match the type of input. 


INPUT NUMBER , МАМЕ $ ,LOCATION 


INPUT #PATH,X,Y,2 


INPUT "What is your selection: ";CHOICE 


INPUT £HOST,"Mhat's your ID number? ",IDNUM 


Sample Program: 


This procedure calculates the day of the week for a specified 
date. It asks you for the date using the INPUT command. 


PROCEDURE weekday 


ОМЕХТ X 


DDIM X,Y,D,M,CALC:INTEGER; DAY,MONTH:STRING(21; 
YEAR:STRING(41; WEEKDAY €7):STRING[9] 

ODIM ANUM,BNUM,CNUM,DNUM,ENUM,FNUM,GNUM,HNUM, 
INUM: INTEGER 

OPRINT USING "S80 ","Day of the Week Program","For 
any year after 1752" 


OPRINT 

UPRINT "Enter day (e.g. 08): "; А INPUT DAY 
OPRINT " Enter month Ce.g. 120: "; А INPUT MONTH 
OPRINT " Enter year (e.g. 1986): "; \ INPUT YEAR 


DY=VALCYEAR) \M2VALCMONTH) \D=VALCDAY) 
OFOR Х=1 TO 7 
DREAD WEEKDAYCX) 


DANUM=INTC.6+1/M) 
OBNUM= Y -ANUM 


—5 ob. ..Ü.——-—K y> ——Ə T O T 
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DCNUM=M+12*ANUM 
DDNUM=BNUM/100 

OENUM= INTCDNUM/ 4) 

OF NUM= INTCDNUMD 

OGNUM= INTCS*BNUM/4) 

OHNUM= ТМТС1 З+ ССМИМ + 12/5) 
OINUM=HNUM+GNUM-FNUM+ENUM+D~-1 
DINUM-INUM-7* INTCINUM/72*1 


OPRINT 
OPRINT "The day cf the week оп“; M; нуз, Т 
нин Y; "б із..."; WEEKDAY CINUMD 


ODATA "Sunday", "Monday", "Tuesday", "Wednesday", 
"Thursday", "Friday", "Saturday" 
DEND 
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INT Convert real number to whole number 


Syntax: INT(value) 


Function: Converts a real number to а whole number by trun- 
cating any fractional part of the real number. 
Parametors: 


value Any negative or positive real number. 


Examples: 
PRINT INTC77.89) 
PRINT INTCNUM) 
PRINT INTC-8.12) 


Sample Program: 


The RND function produces real numbers. This procedure uses 
INT to convert the real RND output to integer values. 


PROCEDURE integer 
ODIM Т: INTEGER 
ОРОВ Т=1 TO 10 
OR=RNDCS8)-25 
OPRINT R, INTCR) 
DNEXT T 

DEND 
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KILL Remove a procedure from memory 


Syntax: KILL procedure 


Function: Unlinks (removes) an external procedure from the 
BASIC09 procedure directory. (f the procedure is not external, 
but resides in BASIC09’s workspace, KILL has no effect. 


Use KILL to remove auto-loaded (packed) procedures that аге 
called by RUN or CHAIN. You can also use KILL with auto- 
loading procedures as a method to overlay programs within 
BASICO9. 


Warning: Be certain you do not KILL an active proce- 
dure. Also be certain that when you use RUN and KILL 
together, that both statements use the same string vari- 
able that contains the name of the procedure to RUN 


and KILL. 
Parameters: 
procedure The name of the external procedure you want 
to KILL. Procedure can either be a name or a 
variable containing the procedure name. 
Examples: 


PROCEDURENAMES = "AVERAGE" 
RUN PROCEDURENAMES 
KILL PROCEDURENAME$ 


INPUT "Which test do you want to run? ",TEST$ 
RUN TEST$ 
KILL TEST$ 
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Sample Program: 


This procedure calls a procedure named Show to display ASCII 
values on the screen. When it no longer needs the Show proce- 
dure, it removes Show from memory using KILL. 


PROCEDURE produce 

ODIM T,U: INTEGER 

CDIM кум, ком , NUM2 , TABLE , PROCNAME : STRING 
DPRÜCNAME s SHON 

OTABLE="4 23456789ABCDEF" 

DFOR Т=8 TO 15 

ОРОВ Џ=1 TO 15 

DNUM1 =MIDSCTAELE,T,1) 

ONUM2=MIDSCTABLE,U,1) 

DNUM=NUM1+NUM2 (e parameter to pass to Show. 
ORUN PROCNAME (NUM) 

DNEXT U 

DNEXT T 

DKILL "PROCNAME" (+ remove Show from the workspace. 
DEND 


PROCEDURE SHOW 
DPARAM NUM:STRING 
OSHELL "DISPLAY "*NUM 
ПЕН) 
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LAND Returns the logical AND of two numbers 


Syntax: | LAND(numl,num2) 


Function: Performs the logical AND function on a byte- or 
integer-type value. The operation involves a bit-by-bit logical 
AND of the two nurnbers you specify. For instance, if you 
LAND 5 and 6, the logic is like this: 

Decimal 5 = Binary 0101 
Decimal 6 — Binary 0110 


0101 
AND 0110 


= 0100 = 4 Decimal 


Parameters: 
пит1 А byte- or integer-type number. 
num2 À byte- or integer-type number. 
Examples: 


PRINT LANDC11,12) 
PRINT LANDC$20,$FF) 


Sample Program: 


The following procedure asks eight questions and uses the eight 
bits of one byte (contained іп the variable STORAGE) to indicate 
either a “yes” or “no” answer. If the answer is “yes,” it sets a 
corresponding bit to 1. If the answer is “no,” it sets a corre- 
sponding bit to 0, using LAND. This procedure operates in con- 
junction with the sample program for LXOR. 
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PROCEDURE questions 
DDIM QUESTION:STRING(68]; T:INTEGER; X,STORAGE: BYTE 
ODIM ANSHER:STRINGE1) 
Ша 
DFOR 7-1 TO 8 
CREAD QUESTION 
DPRINT QUESTION; " (Y/N)? "; 
ПоЕТ #6 ANSKER 
OPRINT 
ПІР ANSKER="y" 00 ANSHER="¥" THEN 
ISTORAGE*LORCSTORAGE, x) (е OR STORAGE if yes, 
ELSE 
DSTORAGE-LANDCSTORAGE.LNUTOD) (+ LAND STORAGE with NOT value if no. 
ПЕНИЕ 
Ut: 
ОМЕТ T 
URUN summary(STORAGE) 
ПЕН) 
DDATA "Do you have more than one Color Computer" 
CDATA "Do you use your Color Computer for games" 
ODATA "Do you use your Color Computer for word processing" 
ODATA "Do you use your Color Computer for business applications" 
DDATA "Do you use your Color Computer at home" 
DDATA "Do you use your Color Computer at the office" 
CDATA "Do you use your Color Computer more than two hours a day" 
CDATA "Do you share your Color Computer with others" 
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ТЕ ЕТ Returns characters from Ше left portion 
of a string 


Syntax: LEFTS(string,length) 


Function: Returns the specified number of characters from the 
specified string, beginning at the leftmost character. If length 
is the same as or greater than the number of characters in 
string, then LEFT$ returns all the characters in the string. 


Parameters: 
string A sequence of ASCII characters or a string 
variable name. 
length The number of characters you want to access. 
Examples: 
PRINT LEFT$C"HOTDO0G",3) о 


PRINT LEFT$CA$,6) 


Sample Program: 


The following procedure extracts the first. name from a list of ten 
names with the LEFT$ function. 


PROCEDURE firstname 

ODIM NAMES:STRING; FIRSTNAME:STRING[10] 

OPRINT "Here are the first names:" 

DFOR T=1 TO 19 

DREAD NAMES 

CPOINTER*SUBSTR(" ",NAMES) (+ find space between first and last names, 
DFIRSTNAME=LEFTS(NAMES ,POINTER-1) (+ extract first name. 

OPRINT FIRSTNAME (+ print first name. 

DNEXT T 


ПЕК) 

CDATA "Joe Blonski","Mike Marvel","Hal Skeemish","Fred Laungly" о 
DDATA "Jane Mistey","Mendy Paston","Martha Upshong","Jacqueline Rivers" 

CDATA "Susy Reetmore","Wilson Creding" 


11-76 


BASIC09 Command Reference | 11 


LEN Returns the length of a string 


Syntax: | LEN(string) 


Function: Returns the number of characters in a string. 
Counts blanks or spaces as characters. 


Parameters: 
string А literal string or a variable containing string 
characters. 
Examples: 


PRINT LENC"ABCDEFGHI JKLM'' ) 
PRINT LENCNAME$) 


NAMES = "JOE" 
ADDRESS$ - "2244 LANCASTER" 
TOTALLEN = LENCNAME$)+LENCADDRESS$) 


Sample Program: 


The following procedure uses LEN to determine which name in a 
list is longest. 


PROCEDURE longname 

DDIM NAMES ,LNAME:STRING; LONGEST LENGTH: INTEGER 

DNAMES="" \LNAME="" \LENGTH=@ \LONGEST=@ 

ОРОВ Т=1 TO 19 

READ NAMES 

OLENGTH=LEN(NAMES ) 

OIF LONGEST<LENGTH THEN 

QLONGEST=LENGTH 

CLNANE=NAMES 

DENDIF 

QNEXT T 

DPRINT "The longest name is "; LNAME; " with "; LONGEST; " characters." 
ПЕН) 

DDATA "Joe Blonsti","Mike Marvel","Hal Skeemish","Fred Laungly" 

ODATA "Jane Misty","Wendy Paston","Martha Upshong","Jacqueline Rivers" 
ODATA "Susy Reetmore","Wilson Creding" 
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LET Assigns а variable’s value 


Syntax: [LET] variable = expression 


Function: Assigns a value to a variable. BASICO9 does not 
require the LET statement to assign values but does accept it 


in 


order to be compatible with versions of BASIC that do 


require it. 


Parameters: 


variable The variable to which you want to assign a 


value. 


expression Either a numeric or string constant or a 


numeric or string expression. 


Notes: 
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The result of the LET expression must be of the same type 
as, or compatible with, the variable in which it is stored. 


BASICO9's assignment function accepts either = or := as 
assignment operators. The := form helps to distinguish 
assignment operations from comparisons (test for equality) 
and is compatible with Pascal programming. 


Use BASIC09’s assignment function to copy entire arrays or 
complex data structures to another array or complex data 
structure. The data structures do not need to be of the 
same type or shape, but the size of the destination struc- 
ture must be the same as or larger than the source struc- 
ture. This means the assignment function can perform 
unusual type conversions. For example, you can copy a 
string variable of 80 characters into a one-dimensional 
array of 80 bytes. 
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Examples: 
LET ñ = 5 
LET А := B 


ANSWER = A * B 
LET NAMES := "JOE" 
NAME $ = FIRSTNAMES + " " + LASTNAMES 


Sample Program: 


This procedure uses LET to assign а random value to the vari- 
able R. 


PROCEDURE getint 
ODIM T: INTEGER 
OFOR T=1 TO 19 
CLET Е-ЕМр(502)-25 
OPRINT R,INTCR) 
ПМЕХТ T 

DEND 
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LNOT Performs a logical NOT on a number 


Syntax: LNOT(value) 


Function: Performs the logical NOT function on an integer or 
byte type number. The operation involves a bit-by-bit logical 
complement operation of the number you specify. For instance, 
if value is 188, the logic looks like this: 


188 Decimal = 10111100 Binary 


NOT 10111100 
= 01000011 


01000011 Binary = 67 Decimal 


LNOT changes each bit in a binary number to its complemen- 
tary binary value—all 1 values become 0 and all 0 values 
become 1. LNOT returns an integer result; it is not a Boolean 
operator. 


Parameters: 
value Any decimal or hexadecimal integer or byte 
number. Precede hexadecimal numbers with $. 
Examples: 


PRINT LNOTC88) 
A = LNOTCB) 
A = LNOTC$44) 


Sample Program: 


This procedure uses one byte (contained in the variable STOR- 
AGE) to indicate the results of eight questions. Each bit in the 
byte indicates a Yes or No answer (Yes=1 and No=0). The com- 
bination logic of LAND and LNOT masks the byte X so that it 
affects only the appropriate bit of STORAGE to set it to 0 if the 
answer is No. LOR sets the appropriate bit to 1 if the answer is 
Yes. The procedure operates in conjunction with the LXOR sam- 
ple program. 
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PROCEDURE questions 

ODIM QUESTIDN:STRINGLGO]; T:INTEGER; X, STORAGE :BYTE 

СІМ ANSHER: STRINGLI] 

Diet 

ОРОВ 741708 

DREAD QUESTION 

OPRINT QUESTION; " (Y/N)? "; 

СОЕТ £0, ANSWER 

OPRINT 

ШЕ ANSWER="y" OR ANSWER="Y" THEN 

COSTORAGE=LORCSTORAGE,X) (* Answer is yes, set bit to 1. 
CELSE 

CISTORAGELANDCSTORAGE,LNOTCX)) (+ Answer is no, set bit to 0, 
DENDIF 

Dx: 2 

CNEXT T 

OPRINT STORAGE 

CRUN summary(STGRAGE) 

ПЕН) 

CDATA "Do you have more than one Color Computer" 

DDATA "Do you use your Color Computer for games" 

СОАТА "Do you use your Color Computer for word processing" 
CDATA "Do you use your Color Computer for business applications" 
CDATA "Do you use your Color Computer at home" 

ODATA "Do you use your Color Computer at the office" 

CDATA "Do you use your Color Computer more than two hours a day" 
CDATA "Do you share your Color Computer with others" 
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LOG Returns natural logarithm 


Syntax: LOG(number) ° 


Function: Computes the natural logarithm of a number that 
is greater than zero. BASICO9 returns the logarithm as a real 
type resuit. 


Parameters: 


number Any integer, byte, or real number. 


Examples: 
PRINT L06€3.14159) 
LOGVALUE = LDGC88/PI) 


Sample Program: 


This procedure calculates the natural log and the log to base 10 
of the values 1-7. 


PROCEDURE logs 

ODIM NUM,T: INTEGER 

OFOR Т=1 TO 7 

OPRINT "Тһе LOG of "; T; " to the natural base = 
"; LOGCT) 

OPRINT "Тһе LOG of "; T; " to base 10 = ''; 
L0G19CT) 

OPRINT 

ONEXT T 

OEND 
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LOG10 Returns base 10 logarithm 


Syntax: LOG10(number) 


Function: Calculates the base 10 logarithm of a number. 
BASIC09 returns е Юра иа as a real number. 


Parameters: 


number Any byte, integer, or real value. 


Examples: 
PRINT L0G10C$45) 
PRINT LOG18CAD 
PRINT L0619€4/12) 


Sample Program: 


This procedure calculates the natural log and the log to base 10 
of the values 1-7. 


PROCEDURE logs 

DDIM NUM,T: INTEGER 

OFOR T=1 TO 7 

OPRINT "The LOG of "; T; " to the natural base = 
"; LOGCT) 

OPRINT "The LOG of "; T; " to base 10 = "; 
LOG16CT) 

OPRINT 

ONEXT T 

DEND 
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LOOP/ENDLOOP 


Establishes/Closes a loop 


Syntax: LOOP 
statement(s) 
ENDLOOP 


Function: Establishes a 1сор in which you can install EXITIF 
tests at any location. The LOOP and ENDLOOP statements 
define the body of the loop. EXITIF tests for a condition 
which, if TRUE, causes alternate actions, the transfer of pro- 
cedure execution to another routine, or both. 


If you do not include an EXITIF statement, the loop cannot 
terminate. 


Parameters: 
statement(s) One or more procedure lines to execute within 
the loop. 
Examples: 
LOOP 


COUNT = COUNT+1 

EXITIF COUNT > 108 THEN 
DONE = TRUE 

ENDEXIT 

PRINT COUNT 

X=COUNT/2 

ENDLOOP 


INPUT X,Y 

LOOP 

PRINT 

EXITIF X«8 THEN 

PRINT "X became В first" 
END 

ENDEXIT 

X = X-1 

EXITIF Y=0 THEN 

PRINT "Y became В first" 


--------------------------------------------------- 
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END 
ENDEXIT 
Y=Y-1 
ENDLOOP 


Sample Program: 


This procedure simulates a gambling machine that awards cash 
returns depending on a random selection of kinds of fruits. You 
begin with a stake of $25 and win or lose according to random 
selections of the procedure. 


The program uses LOOP/ENDLOOP to keep operating until you 
run out of cash. 


PROCEDURE bandit 

ODIM FRUIT1,FRUIT2,FRUIT3,STAKE: INTEGER; 
FRUITC183:STRING(6] 

П5ТАКЕ-25 

OPRINT \ PRINT "You have $"; STAKE; " to play 
with." 

ПЕПЕ T=1 TO 19 

DREAD FRUITCT) 

DNEXT T 

DLOOP 

OFRUIT1=RNDC9)+1 \FRUIT2=RNDC9)+1 NFRUIT3-RNDC9) + 1 
OPRINT FRUITCFRUIT12; " "; FRUITCFRUIT2); " "; 
FRUITCFRUIT3) 

DIF FRUITCFRUIT1)=FRUITCFRUIT2) AND FRUITCFRUIT1)= 
FRUITCFRUIT3) THEN 

OSTAKE=STAKE+16 

DELSE 

DIF FRUITCFRUIT1)2=FRUITCFRUIT2) OR FRUITCFRUIT2)= 
FRUITCFRUIT3) THEN 

О5ТАКЕ + 5ТАКЕ + 2 

DELSE 

DIF FRUITCFRUIT1)=FRUITCFRUIT3) THEN 
ОЅТАКЕ = ЅТАКЕ + 1 

DELSE STAKE=STAKE-1 

DENDIF 

OENDIF 

DENDIF 

DEXITIF STAKE«1 THEN 

DPRINT 

CPRINT "You’re Busted...Better go home." 


-------------------------------------------------------- 
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PROCEDURE ques 


ODIM QUESTIDN:STRING[601; 


X, STORAGE: BYTE 
DDIM ANSWER:ST 
Dx=1 

OFOR Т-1 TO 8 
DREAD QUESTIDN 
DPRINT QUESTIO 
ПОЕТ %0,АМ5МЕР 
DPRINT 
0 
0 
n 


DELSE 


ПЕМОТЕ 

OX=X*2 

ПМЕХТ Т 

(PRINT STORAGE 
ORUN summarytS 
DEND 

ODATA "Do you 
ODATA "Do you 
DDATA "Do you 
processing" 
DDATA "Do you 
applications" 
ODATA "Do you 
DDATA "Do you 
office" 

DDATA "Do you 
two hours a da 


tions 


RING[11 


N; 


TORAGE) 


o CYAN)? "у 


have more than 


use your 
use your 


use your 


use your 
use your 


use your 


y" 


Color 
Color 


Color 


Color 
Color 


Color 


T: INTEGER; 


IF ANSWER="y" OR ANSWER="¥" THEN 
STORAGE -LORCSTORAGE , X) 


OSTORAGE =LANDCSTORAGE , LNOTCX2) 


one Color Computer" 
Computer for games" 
Computer for word 


Computer for business 


Computer at home" 
Computer at the 


Computer more than 


ODATA "Do you share your Color Computer with 


others" 
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LXOR Returns logical XOR of two numbers 


Syntax: | LXOR(valuel,value2) 


Function: Performs the logical XOR function on two-byte, or 
integer-type, values. For instance, if you LXOR the numbers 5 
and 6 the logic is like this: 


Decimal 5 = Binary 0101 
Decimal 6 = Binary 0110 


0101 
LXOR 0110 


= 0011 = 3 Decimal 


If one bit or the other bit in the evaluation is 1, but not both, 
LXOR returns a result of 1. Otherwise, LXOR returns a 


© result of 0. 


Parameters: 
valuel A byte or integer number. 
value2 A byte or integer number. 
Examples: 


PRINT LXORC11,12) 
PRINT LXORC$28,$FF) 


Sample Program: 


The following program summarizes the results of the sample 

program for LOR. The LOR program stored the answers to eight 

questions in a single byte. This procedure reads the byte and 

displays appropriate comments. LXOR checks to see if two of the 
о answers аге “yes” or “no.” 
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DENDEXIT 

DPRINT "Your stake is now $"; STAKE; "." 

DPRINT 

DPRINT 

DINPUT "Press ENTER to pull again..." ,Z$ 
DENDLDDP 

DEND 

ODATA "ORANGE", "APPLE", "CHERRY", "LEMON"' , " BANANA" 
DDATA “PEAR, "PLUM", "PEACH" , "GRAPE" , "APRICOT"! 
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LOR Returns logical OR of two numbers 


Syntax: LOR(valuel,value2) 


Function: Performs the logical OR function on a byte- or 
integer-type value. The operation involves a bit-by-bit logical 
OR operation on two values. For instance, if you LOR the 
numbers 5 and 6, the logic is like this: 


Decimal 5 = Binary 0101 
Decimal 6 = Binary 0110 


0101 
OR 0110 


= 0111 + 7 Decimal 


If one bit or the other bit is 1, LOR returns a result of 1. 
Otherwise, LOR returns a result of 0. 


Parameters: 
valuel А byte or integer number. 
value2 А byte or integer number. 
Examples: 


PRINT LORC11,12) 
PRINT LORC$20,$FF) 


Sample Program: 


This procedure stores the answers to eight "yes" or “по” ques- 
tions in one byte, named STORAGE. If you answer "yes" to a 
prompt, the procedure sets a corresponding bit to 1. If you 
answer "no" to a prompt, the procedure sets a corresponding bit 
to 0. The procedure uses LOR to set bits to 1 by masking all bits 
except the one it needs to set. The procedure operates in con- 
junction with the LXOR sample program. 
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PROCEDURE summary 

DDIM T:INTEGER; A,B,X,TEST,TEST2:BYTE; SUMMARY: 
STRING[5801 

DPARAM STORAGE:BYTE 


DA-0 \В=@ © 
ПРВІМТ N PRINT 


DPRINT "The following is a summary of the 
questionnaire answers:" 

OPRINT 

OPRINT "The surveyee: " 

ОХ =1 

OFOR T=1 ТО 8 

OTEST=LANDCSTORAGE , X2 

DREAD SUMMARY 


OIF TEST>@ THEN 

OPRINT TABC19); SUMMARY 

OENDIF 

OX=X*2 

ПМЕХТ T 

OIF LANDCSTORAGE „1282208 THEN 

OA=1 

OENDIF 

OIF LANDCSTORAGE,642»0 THEN 

DB-1 © 
DENDIF 

OTEST2=LXORCA,B) 

OIF TEST2=1 THEN 

[PRINT "This computer owner either uses the 


computer" 

OPRINT "more than two hours a дау or shares it 
with others." 

OPRINT "This is a heavy use situation." 

DENDIF 

OTEST2=LANDCA,B) 

OIF TEST2=1 THEN 

OPRINT "This computer user uses the computer more 
than two" 

ÜPRINT "hours per day and shares it with others. 
This is a" 

OPRINT "super heavy use situation." 

DENDIF 

DEND о 
DDATA "Uses more than one computer" 

DDATA "Plays games" 


—————————————————————————— 
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ODATA 
ODATA 
DDATA 
ODATA 
ODATA 
day" 

ODATA 
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"Uses the computer for word processing" 
“Uses the computer for business" 

"Keeps a Color Computer at home" 

"Keeps a Color Computer at the office" 
"Uses the computer more than two hours a 


"Shares the computer with others" 
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MID$ Returns characters from within a string 


Syntax: MID&(string,begin,length) 


Function: Returns a substring length characters long, begin- 
ning at begin. Use MID$ to “take apart” a string consisting 
of a number of elements. 


Parameters: 
string A sequence of string type characters or a 
string type variable. 
begin The position (an integer value) in string of the 
first character to retrieve. 
length The number of characters you want to retrieve. 
Examples: © 


МАМЕ% = "JONES, JOHN M." 

LASTNAMES = MIDS$CNAME$,8,6) 
FIRSTNAMES$ = MIDSCNAME$,1,5) 
INITIALS = MID$CNAMES,15,2) 


Sample Program: 


This procedure reverses a word or phrase you type. MID$ reads 
each character in your phrase from the end to the beginning. 


PROCEDURE reverse 

0014 PHRASE:STRING; T,BEGIN: INTEGER 

OPRINT "Type а word or phrase you want to 
гемегче:"; 

DPRINT 

DINPUT PHRASE 

OBEGIN=LEN€PHRASE > о 
DPRINT "This із how your phrase looks backwards:" 
ПЕОВ T*BEGIN TO 1 STEP -1 

OPRINT MID$CPHRASE,T,1); 

DNEXT T 

DPRINT 

ПЕНО 
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MOD Returns modulus of a division 


Q Syntax: | MOD(numberl,number2) 


Function: Returns the modulus (remainder) of a division. 
MOD divides numberl by number2 and calculates the remain- 
der. You can use MOD to put a limit on a numeric variable. 
For instance, regardless of the value of X, MOD(X,3) produces 
numbers only in the range 0 through 2. MOD(X,5) produces 
numbers only in the range of 0 through 4. 


You can use MOD to cause repeating sequences. For instance, 
in a loop, MOD(X,3) produces a repeating sequence of 0, 1, 2, 
where X increases by 1 in each step of the loop. 


Parameters: 
питбегі А Бубе, integer ог real number dividend. 
° number2 A byte, integer or real number divisor. 
Examples: 


PRINT MODC99,5) 
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Sample Program: 


This procedure uses MOD to execute repeatedly routines that 
display asterisks on the screen. There are eight subroutines that 
the MOD function selects over and over through 100 passes. © 


PROCEDURE stardown 

ODIM T: INTEGER 

DSHELL "TMODE -PAUSE" 

DFOR Т-1 ТП 106 

DON MODCT,83+1 GOSUB 10,22,30,40,50,60,70,80 
ÜNEXT T 

OSHELL "TMODE PAUSE" 
[END 

190PRINT USING "510^", "+9 \ RETURN 
200PRINT USING "510^", "жж" X RETURN 
ЗЙПРРІМТ USING "5107," жән" X RETURN 
48DPRINT USING "S10^","x«»*" X RETURN 
БВОРЕТНТ USING "S18^",'"««x»*«' \ RETURN 
ӨЙПРВІМТ USING "S10^",'s**«" X RETURN 
78ПРЕТНТ USING "5187", Нежен \ RETURN 
890PRINT USING "S19^","*«*" X RETURN 
OEND 
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NEXT Causes repetition in a FOR loop 


Syntax: FOR variable = init val TO end val [STEP 
value] 
[procedure statements] 
NEXT variable 


Function: NEXT forms the bottom end of a FOR/NEXT loop. 
Any program statements between FOR and NEXT are exe- 
cuted once for each repetition of the loop, from the initial 
value to end value. 


Parameters: 
variable Any legal numeric variable name. 
init val Any numeric constant or variable. 
end val Any numeric constant or variable. 
value Any numeric constant or variable. 
procedure Procedure lines you want to execute within 


statements the loop. 
For more information, see FOR/NEXT/STEP. 
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МОТ Returns the complement of a value 


Syntax: NOT(value) 


Function: Returns the logical complement of a Boolean value 
or expression. 


Parameters: 
value A Boolean value (True or False), or an expres- 
sion resulting in a Boolean value. 
Examples: 


DIM TEST:BOOLEAN 
WHILE NOTCTESTO DO 
А=А+1 

“ТЕ5ТзА-В 

ENDWHILE 


Sample Program: 


This procedure redirects the current directory listing to a file 
named Dirfile. It then opens Dirfile and reads the contents, dis- 
playing each line on the screen. It uses NOT in a WHILE/END- 
WHILE loop to make sure that the end of the file has not been 
reached before trying to read another entry. 


PROCEDURE readfile 

DDIM A:STRING(801 

ODIM PATH:BYTE 

DSHELL "DIR > dirfile" 
DOPEN ^PATH,"dirfile":READ 
DMHILE NOT EOFC#PATH) DO 
DREAD #PATH,A 

OPRINT A 

QENDWHILE 

DCLOSE #PATH 

DEND 
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ON ERROR/GOTO 


Establishes an error trap 


Syntax: ON ERROR [GOTO linenum] 


Function: Sets an error trap that transfers control to the spec- 
ified line number in a procedure. This lets your program 
recover from an error and continue execution. To use these 
commands, your program must have at least one numbered 
line—the line to branch to in the event of an error. 


Parameters: 
linenum The line to which you want ВАЗТСО9 to 
branch should an error occur. 
Notes: 


e ON ERROR СОТО is effective only with non-fatal, run- 
time errors. If such an error occurs without a preceding ON 
ERROR GOTO statement, BASICO9 enters the DEBUG 
mode. You must specify ON ERROR GOTO before an error 
occurs. 


е You turn on error trapping by specifying ON ERROR 
GOTO linenum. You turn off error trapping by specifying 
ON ERROR without a line number. 


е Use ON ERROR СОТО with the ERR function (that 
returns the code of the last error) to specify a particular 
action for a particular error. You can also use ERROR to 
simulate an error to test error trapping. For more informa- 
tion on this, see ERROR. 
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Examples: 


ODIM FILENAME:STRING © 
DDIM PATH: INTEGER 

10ПІМРИТ "Name of file to create? ",FILENAME 

DON ERROR GOTO 196 

DCREATE ^PATH,FILENAME : UPDATE 

DEND 

1800PRINT "That file already exists...please 

choose another name..." 

OGOTO 10 

DEND 


Sample Program: 


If you created a directory file with the GET sample program, 
you can use this procedure to delete files from the original direc- 
tory using key characters. For instance, you might type XX as 
key characters. This means that any filename containing the 
character group XX is deleted. You can select any key characters 
you wish, but be sure they apply only to files you want to 
delete. О 


ТЕ you want to delete all Ше files іп Ше directory, type ап aster- 
isk (*) when asked for key characters. 


This procedure uses ON ERROR to let the procedure continue, 
even if a directory entry cannot be deleted—if an entry is а sub- 
directory. Without the ON ERROR function, the procedure 
would produce an error and cease execution when it tried to 
delete a subdirectory. 


PROCEDURE purge 

OREM Use caution with this procedure 
OREM Be sure to specify key characters 
OREM that exist only in the files you 
OREM want to delete! 


ODIM PATH: INTEGER 

ODIM NAMEC1082:STRING 

ODIM WILDCARD: STRING Q 
Охей 

DOPEN #PATH,"dirfile":READ 

OWHILE NOTCEOFC#PATH)) DO 

DX=X+1 

DREAD #PATH,NAMECX) 
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DENDHHILE 

ПЕПЕ T*1 TO X 

DPRINT NAMECTO, 

[INEXT T 

DINPUT "Wildcard Characters..." ,HILDCARD 

DFOR Т=1 TO X 

СОМ ERROR GOTO 1800 

ПІҒ SUBSTRCHILDCARD,NAMECT22»6 OR WILDCARD="*" 
THEN 

OPRINT "DELETING "; NAMECTO; " ...... Б 

DDELETE NAMECT) 

DENDIF 

100NEXT T 

DEND . 

109ПРЕІМТ “*O*G*QERROR,O"; NAMECTO; "Dcannot be 
deleted...continuing." 

DcüTO 16 

ÜEND 
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ON/ GOSUB Jumps to subroutine on a 


specified condition 


Syntax: ОМ pos GOSUB linenum [,linenum,...] 


Function: Transfers procedure control to the line number 
located at position pos in the list of line numbers immediately 
following the GOSUB command. For example, if pos equals 1, 
BASICO9 branches to the first line number it encounters іп 
the list. If pos equals 2, BASICO9 branches to the second line 
number it encounters in the list. If pos is greater than the 
number of items in the list, execution continues with the next 
command line. To use ON/GOSUB you must have numbered 
lines to match the line numbers in your list. End the routines 
accessed by ON/GOSUB with a RETURN statement. 


Parameters: 
pos An integer value pointing to a line number in 
a list of line numbers. 
linenum Any numbered line in the procedure. 
Examples: 


PRINT "You can now: (1) End the program (2) Print 
the results" 

PRINT " (3) Try again (4) Start 
а new program" 

INPUT "Type the letter of your choice: ",CHOICE 
ON CHOICE GOSUB 100, 200, 300, 400 
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Sample Program: 


This procedure uses MOD to execute repeatedly a sequence of 
GOSUB commands. A loop of index of 80 causes execution to 
jump to each line number in the list 10 times. 


PROCEDURE repeat 

OSHELL "TMODE -PAUSE" 

DDIM T: INTEGER 

ЗЕОЕ T=1 TO 80 

CON MODCT,8)+1 GOSUB 10,20,30,40,50,60,70,80 
DNEXT T 

DSHELL "TMODE PAUSE" 

ПЕМ” 

1G°PRINT USING "S10^","«" X RETURN 
2@ЛРЕ1МТ USING "510^", "жж" X RETURN 

30 PRINT USING "5109", "а" X RETURN 
4ЙОРВІМТ USING "510^", "жежж" X RETURN 
S59DPRINT USING "S10^","x»««»*a' X RETURN 
ӨЙСРВІМТ USING "S10^","«4»2'" X RETURN 
700PRINT USING "S19^","»«»'" X RETURN 
8GOPRINT USING "S10^","««" X RETURN 
DEND 
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ON/ GOTO Jump to line number on a 


specified condition 


Syntax: ОМ pos GOTO Нпешип [,linenum....] 


Function: Transfers procedure control to the line number 
located at position pos in the list of line numbers immediately 
following the GOTO command. For example, if pos equals 1, 
BASICO9 branches to the first line number it encounters in 
the list. If pos equals 2, BASICO9 branches to the second line 
number it encounters in the list. If pos is greater than the 
number of items in the list, execution continues with the next 
command line. To use ON/GOTO you must have numbered 
lines to match the line numbers in the list. 


Parameters: 
pos An integer value in a range from 1 to the 
number of items in the list following GOTO. 
linenum Any numbered line in the procedure. 
Examples: 


PRINT "You can now: С1) End the program (2) Print 
the results" 


PRINT " (3) Try again (4) Start 
a new program" 
INPUT "Type the letter of your choice: ",choice 


ON CHUICE:GUTO 100, 200, 300, 400 


Sample Program: 


This procedure converts decimal numbers to binary. It uses ON 
GOTO to execute the operation you select from a menu: Convert 
a number, display the result of all conversions, or end the 
program. 


PROCEDURE bicalc 

ODIMONUMBER , NUM, X, STORAGE : INTEGER ;[]BI : STRING; 
DARRAYC50,2):STRING 

DCOUNT=8@ 
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1@0BI=""* \NUMBER=@ \NUM=@ AX=0 \STORAGE=9 
OINPUT "Number to convert to binary ",NUMBER 
OIF NUMBER-s0 THEN END 

DENDIF 

DNUM=L0G10CNUMBER)/.3 

ONUM=2°NUM \STORAGE=NUMBER 

OREPEAT 

OX=NUMBER/NUM 

GIF X>@ THEN ВІ=ВіІ+"1" 
ONUMHER=MGDENUMBER , NUM) 

DELSE ВЇ=В1+"0" 

CENDIF 

ONUMH=NUM/2 

BUNTIL NUM<=1 

OIF NUMBERS THEN 

OBIsBI*'"1" 

DELSE^BI-BI«"g" 

DENDIF 

OPRINT STORAGE; " = "; BI; "іп binary." 
OPRINT 

DCOUNT=COUNT + 1 
DARRAYCCOUNT,125STR$CSTDRAGE) 
DARRAYCCOUNT ,2) =ВІ 

120РЕТНТ "Do you want to: (1) Convert another 
number." 

OPRINT “COON 2) Display all calculations 
thus far." 

DPRINT “COMO 3) End the program." 
OINPUT "Enter 1, 2, or 3...",choice 

UON choice GOTO 19,20,30 

OEND 

260FOR Т=1 TO COUNT 

OPRINT ARRAYCT,10; " = “; ARRAYCT,2) 
ПМЕХТ T 

DGOTO 12 

30UPRINT N PRINT " Program Terminated" 
ÜEND 
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OPEN Opens a path to a device 


Syntax: OPEN #path,“pathlist” [access mode)[+ access 
mode] +...) 


Function: Opens ап input/output рай to а disk Ше ог to а 
device. When you open а file, you сап select опе ог more of the 
following access modes: 


Mode 


Function 


READ 


WRITE 
UPDATE 
EXEC 


DIR 


Parameters: 


path 
pathlist 


access mode 
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Lets you read (receive) data from a file or 
device but does not allow you to write (send) 
data. 


Lets you write data to a file or device but does 
not allow you to read data. 


Lets you both read from and write to a file or 
device. 


Specifies that the file you want to access is in 
the current execution directory. 


Specifies that the file you want to access is a 
directory-type file. 


The variable in which BASICOO9 stores the 
number of the newly opened path. 


The route to the file or device to be opened, 
including the filename if appropriate. 


The type of access the system is to allow for 
the file or device. Use a plus symbol to specify 
more than one type of access. 
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Notes: 
е The access mode defines the direction of I/O transfers. 


е Because OS-9 files are byte-addressed and are unformat- 
о ted, you сап set up the filing system you want Юг a partic- 
ular application. Your system can read the data contained 

in a file as single bytes or in groups of any size you want. 


€ You can expand a file using PRINT, WRITE, or PUT state- 
ments to write beyond the current end-of-file. 


Examples: 
OPEN ^/TRANS,"transportation'":UPDATE 
OPEN *SPOOL,"/user4/report" : WRITE 
OPEN #QUTPATH, name$:UPDATE+EXEC 


Sample Program: 


This procedure opens a path to both the SYS directory on Drive 
© ПО and the error message file. 


PROCEDURE readerr 

ODIM A:STRINGI88] 

ODIM PATH:BYTE 

DOPEN #PATH,"/D8/SYS/ERRMSG": READ 
QWHILE EOF C#PATH)<>TRUE DO 

DREAD #PATH,A 

OPRINT A 

DENDHHILE 

OCLOSE #PATH 

DEND 
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ОК Performs а Boolean OR operation 


Syntax: operandi OR operand2 © 


Function: Performs ап ОҢ. operation on two or more values, 
returning a Booiean vaine of either TRUE ок FALSE. 
Parameters: 
ореғапа1 Either numeric or string values. 
operand2 
Examples: 
PRINT A>3 OR B>3 
PRINT AS="YES" or B$-"YES" 
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Sample Program: 


This procedure asks you to type a word or phrase, then converts 
all lowercase characters to uppercase. It uses OR to test for a 
character in your word or phrase that is outside of the ASCII 
values for lowercase letters. If it is, the character does not need 
converting. 


PROCEDURE uppercase 

ODIM PHRASE ,NEWSTRING:STRING([@B1; CHARACTER: 
STRING(1); T,X: INTEGER 

ONEWSTRING="" \PHRASE="" 

OPRINT "Type a phrase in lowercase and I will make 
it uppercase." 

DINPUT PHRASE 

ОРОВ T=1 TO LENCPHRASE) 
DCHARACTER-MIDS$CPHRASE,T,12 
OX=ASCCCHARACTER)D 

DIF Х<97 OR X>122 THEN 
ONEWSTRING=NEWSTRING+CHARACTER 
DELSE 

OX=X-32 
DNEWSTRING=NEWSTRING+CHR$CX) 
ÜENDIF 

ПМЕХТ T 

OPHRASE=NEWSTRING 
ONEWSTRING="" 


OPRINT PHRASE 
DEND 
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РАНАМ Establishes variables to receive from 
another procedure 


Syntax: PARAM variable|[,...[:fypel][;variable][,...]l:typel 
[...] 


Function: Defines the parameters that a called procedure 
expects to receive from the procedure that calls it. When 
using PARAM, be sure that the total size of each parameter 
in the calling procedure’s RUN statement is the same as the 
defined size in the called procedure’s PARAM statement. 


Parameters: 
variable A simple variable, an array structure, or a 
complex data structure. 
type Byte, Integer, Real, Boolean, String, or user 
defined. 
Notes: 


е BASICO9 checks the size of each parameter to prevent acci- 
dental access to storage other than that assigned to the 
parameter. However, BASICO9 does not check that parame- 
ters are of the proper type. In most cases you must be sure 
that types evaluated in RUN statements match the types 
defined in the PARAM statements. 


However, because BASICO9 does not perform type checking, 
it is possible to perform useful but normally illegal type 
conversions of identically-sized data structures. For example, 
you could pass a string of 80 characters to a procedure 
expecting a byte array of 80 elements. Each character in 
the string is assigned a corresponding position in the 
array. 


* You declare simple arrays by using the variable name, 
without a subscript, in a PARAM statement. 
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е You can declare several variables of the same type by sepa- 
rating them with commas. To separate variables of differ- 
ent types, follow each type group with a colon, the type 
name, and then a semicolon. 


о е If you do not include а maximum length for a string vari- 
able enclosed in brackets following the type, like this: 


DIM name:stringt25] 


BASICO9 uses a default length of 32 characters for strings. 
You can declare shorter or longer lengths, to the capacity of 
BASICO9's memory. 


9 Arrays can have one, two, or three dimensions. The 
РАКАМ format for dimensioned arrays is the same as for 
simple variables except you must follow each array name 
with a subscript, enclosed in parentheses, to indicate its 
size. The maximum array size is 32767. 


Arrays can be either of the standard BASICO9 type, or of a 
user-defined type. To create your own data types for simple 
variables, arrays, and complex data structures, see TYPE. 


© Examples: 


PARAM NUMBER:INTEGER 


PARAM NAME:STRING[2S1;ADDRESS:STRING[301;ZIP: 
INTEGER 


PARAM NO1,NO2,N03:REAL;NO4,NOS,NOG6: INTEGER;NO7: 
BYTE 


Sample Program: 


The first procedure asks you to enter a decimal number. Then, it 
asks you to choose whether you want to convert the number to 
binary or hexadecimal. Depending on your choice, the procedure 
calls (using RUN) either a procedure named Binary or a proce- 
dure named Hex. It passes the number you typed to the appro- 
priate procedure for conversion. 
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PROCEDURE convert 

DDIM NUMBER,CHOICE: INTEGER 

OPRINT USING "5887"; "Hexadecimal - Binary 
Conversion Program" 


ОРЕТНТ 

190INPUT "Number to convert..." NUMBER 

OIF NUMBER=8 THEN 

DEND 

OENDIF 

DINPUT "Choose: (12 Binary or (2) Hex...",CHOICE 


DON CHOICE GOTO 20,30 
2@0RUN BINARY CNUMBER) 
OGOTO 18 

3@0RUN HEXCNUMBER) 
CGOTO 18 

ПЕКО 


PROCEDURE binary 
DDIM NUM,X,STORAGE: INTEGER; BI:STRING; 
ARRAYC5@,2):STRING 

OPARAM NUMBER: INTEGER 

Осоинтей 

DBI-'"" \NUM=@ \X=@ \STORAGE=8 
CNUM=LOG1@CNUMBER)/.3 

ONUM=2^NUM \STORAGE=NUMBER 

ПРЕРЕАТ 

OX «NUMBER / NUM 

OIF X»8 THEN 

DBI-BI«"1" 

UNUMBER «MOD NUMBER , NUM) 

DELSE 

ПВ1=В1+"@" 

DENDIF 

DNUM=NUM/2 

DUNTIL NUM<=1 

OIF NUMBER>@ THEN 

ПВ1=В1+"1" 

DELSE 

DBI=BI+"0" 

DENDIF 

DPRINT STORAGE; " = "; ВІ; " in binary." 
ОРВІМТ 

DEND 


П ———————————————_——________—_— 
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PROCEDURE hex 

ODIM NUM,X,STORAGE: INTEGER; TABLE,HX:STRING; 
ARRAYCS6,2):STRING 

OPARAM NUMBER: INTEGER 
DTABLE*''123456789ABCDEF" 
UHXs"" XNUM-8 \X=0 NSTORAGE-0 
DNUM-LOG128CNUMBER2/1.2 
DNUMs1!€^NUM \STORAGE=NUMBER 
DREPEAT 

ОХ =NUMBER/NUM 

ПІҒ Х>@ THEN 
OHX=HX+MIDSC€TABLE,X,1) 
ONUMBER=MODCNUMBER , NUM) 

DELSE HX*HX«"g" 

DENDIF 

DNUMsNUM/16 

QUNTIL NUM<=1 

OIF NUMBER»Q THEN 

ОНХ =HX+MID$C TABLE ,NUMBER, 1) 
DELSE 

OHX=HX+"g"" 

DENDIF 

OPRINT STORAGE; " = "; HX; " in hexadecimal." 
OPRINT 

OEND 
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PAUSE Suspends execution and enters Debug 


Syntax: PAUSE text 


Function: Suspends the execution of a procedure and causes 
BASIC09 to enter the DEBUG mode. If you include text with 
the PAUSE command, it is displayed on the screen. 


Place PAUSE statements in a program temporarily to observe 
the way in which the procedure operates and to track down 
programming errors. When the procedure is operating cor- 
rectly, remove the PAUSE statement. 


After using DEBUG, you can continue execution of the paused 
procedure with the CONT command. 


Parameters: 
text A message you want PAUSE to display on the 
screen when BASICO9 executes the statement. 
Examples: 
PAUSE 


PAUSE The array is now full. 
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Р ЕКК Returns Ше value іп а memory location 


Syntax: PEEK(mem) 


Function: Returns the value of a memory byte as a decimal 
integer. The value returned is in the range 0 to 255. PEEK is 
the complement of the POKE statement. 


See also ADDR. 


Parameters: 


mem An integer value representing the location of 
the memory byte you want to examine. The 
memory byte is relative to the current pro- 
cess’s address space. 


ө Examples: 


PRINT РЕЕКС15250) 
MEMVAL = PEEK(C4450) 
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Sample Program: 


This procedure asks you to type a phrase in uppercase charac- 
ters. It then uses ADDR to locate the area in memory where 
BASIC09 stores the phrase. Next, it reads each character from 
memory with PEEK, converts it to lowercase if necessary, and 
pokes the new value back into the same location. When the pro- 
cedure displays the contents of the phrase, it is all lowercase. 


PROCEDURE lowercase 

ODIM LOC,T: INTEGER; PHRASE:STRING(80] 
ПРВІМТ "Туре a phrase in UPPERCASE and 1711 make 
it lowercase." 

OINPUT PHRASE 

QLOC=ADDRCPHRASE? 

ОРОВ T-LOC TO LOC+LENCPHRASE)D 
OX=PEEKCT) 

ШЕР Х>32 AND X«91 THEN 

OX=#X+32 

ОРОКЕ T,X 

DENDIF 

ОМЕХТ T 

OPRINT PHRASE 

ПЕКО 
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Р І Returns Ше value of рі 


Syntax: РІ 


Function: Returns the constant value 3.14159265. 
Parameters: None 


Examples: 


PRINT “The area of a circle with a radius of 6 
inches is “;РІ:6е42 


Sample Program: 


This procedure uses the formula (PI+2)/15 as a basis for calcu- 
lating a screen position. Taking the sine of the formula, it prints 
a sine wave of asterisks down the screen. 


PROCEDURE picalc 

ODIM FOüRMULA,CALCULATE,POSITION:REAL 
OSHELL "DISPLAY ВС" 
DFORMULAsCPI*2)2/15 
DCALCULATE=FORMULA 

OSHELL “TMODE -PAUSE" 

OFOR Т=@ TO 188 
OCALCULATE=CALCULATE+FORMULA 
OPOSITION=INTCSINCCALCULATE)*16+16) 
OPRINT TABCPOSITION); "+" 

ONEXT T 

DSHELL "TMODE PAUSE" 

END 
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РОКЕ Stores а value іп а memory location 


Syntax: РОКЕ mem,value 


Function: Stores а value at Ше specified memory address, ге!- 
ative to the current, process's address space. Мет 15 ап abso- 
lute address at which BASICO9 stores a byte type value. 
POKE is the complement of the PEEK statement. 


You should use care when using POKE. Because it changes 
the value in memory, a POKE to the wrong portion of memory 
could cause OS-9, BASICO9, or your procedures to malfunction 
until you reboot the system. 


See also ADDR. 


Parameters: 
mem An integer value representing the location of 
the memory byte you want to change. 
value The value to store in the specified memory 
location. 
Examples: 


POKE 15250,13 
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Sample Program: 


© This procedure asks you to type a phrase іп uppercase charac- 

ters. It then uses ADDR to locate the area in memory where 
BASIC09 stores the phrase. Next, it reads each character from 
memory, converts it to lowercase if necessary, and uses POKE to 
store the new value back in the same location. When the proce- 
dure next displays the contents of the phrase, it is all lowercase. 


PROCEDURE lowercase 
ODIM LOC,T: INTEGER; PHRASE:STRING[8£] 
CPRINT "Type a phrase in UPPERCASE and 1711 make 
it lowercase.” 
DINPUT PHRASE 
OLOC=ADDRCPHRASE) 
ОРОВ T=LOC TO LOC+LENCPHRASE) 
OX=PEEKCT) 
DIF Х>32 AND X«91 THEN 
DX=X+32 
ПРОКЕ T,X 
DENDIF 
© ПМЕХТ Т 
OPRINT PHRASE 
DEND 
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POS Returns cursor's column position © 


Syntax: POS 


Function: Returns Ше current column position of the cursor. 
Parameters: None 


Examples: 
PRINT POS 


Sample Program: 


This procedure is a simple typing program that uses POS to 
make sure that words are not split when you type to the end of 
the screen. After you type 25 characters on a line, the procedure 
breaks the line at the next space character. © 


PROCEDURE wordwrap 

ODIM CHARACTER:STRINGI1J 

OPRINT USING "5327"; "Word Wrap Program" 
OPRINT USING "S32^"; "Press [CTRLI[C] to Exit" 
DPRINT 

[IBHELL “TMODE -ЕСНО" 

QWHILE CHARACTER«»" " ро 

ПОЕТ #1,CHARACTER 

OPRINT CHARACTER; 

OIF POS>2S AND CHARACTERs" " THEN 

OPRINT CHR$C13) 


DENDIF 

DENDHHILE 

ÜSHELL "TMODE ECHO" 
DEND 
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PRINT Displays text 


© Syntax: PRINT [#path] [TAB(pos);] datal;data...] - 


Function: Prints numeric or string data on the video display 
unless another path is specified. 


Parameters: 
path 


pos 


© data 


Notes: 


The number corresponding to an opened device 
or file. If you do not specify path, the default 
is #1, the video sereən (standard output 
device). To print tc another device or file, first 
ОРЕХ a path to that file or device (see 
OPEN). 


A column number that tells TAB where to 
begin printing. Specify any number from 0 to 
the width of your video display. 


Any numeric or string constant or variable. 
Enclose string constants within quotation 
marks. All data items must be separated by a 
semicolon or comma. 


е If you specify more than one data item in the statement, 
separate them with commas or semicolons. 


е If you use commas, PRINT automatically advances to the 
next tab zone before printing the next item. In ВА51С09, 
tab zones are 16 characters apart. 


е If you use semicolons or spaces to separate data items, 
BASICO9 prints the items without any spaces between 
them. BASICO9 begins the next print item immediately fol- 
lowing the end of the last print item. 


е If you end a print item without any trailing punctuation, 
о РКІМТ begins printing at Ше beginning of the next line. 
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е If the data being printed is longer than the display sereen 
width, PRINT moves to the next line and continues print- 
ing the data. 


e TAB causes BASIC09 to begin displaying the specified data 
at the column position specified by TAB. If the output line 
is already past the specified TAB position, PRINT ignores 
TAB. 


е You can concatenate items for printing using the plus (+) 
symbol, for example: print "hello "*name$*" " 
*lastname$. 


€ PRINT displays REAL numbers with nine or fewer digits 
in regular format. It displays REAL numbers with more 
than nine digits in exponential format. For example, 
1073741824 is displayed as 1.07374182Е +09. 


е You must enclose string constants within quotation marks. 


Examples: 
PRINT А$ 
PRINT "Menu Items" 
PRINT COUNT 
PRINT VALUE, ТЕМР + (п/2.5), | ОСАТТОНМЗ 
PRINT #PRINTER_PATH,"The result is ";NUMBER 
PRINT *4DUTPATH FMT$,COUNT,VALUE 
PRINT "what is"*NAME$*"'s age? "; 
PRINT "INDEX: ";I;TAB(C252;"VALUE: "VALUE ` 
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Sample Program: 


This procedure asks you to type a word or phrase, then displays 
it backwards by reading each character from end to beginning 
and using PRINT to display it on the screen. 


PROCEDURE reverse 

DDIM PHRASE,TITLE:STRING; T,BEGIN:INTEGER 

ODIM INSTRUCTIDNS:STRING[431 

OTITLE="Word Reversing Program" 
DINSTRUCTIONS-"Type а word or phrase you want to 
reverse; " 

OPRINT TITLE 

DPRINT " 

OWHILE PHRASE«»"" DO 
DPRINT 

OPRINT INSTRUCTIONS 
ПІМРОТ PHRASE 
OBEGIN=LENCPHRASE) 
OPRINT "This is how your phrase looks backwards:" 
OFOR T=BEGIN TO 1 STEP -1 

OPRINT MID$CPHRASE,T,1)3 

ПМЕХТ Т 

ПРЕТНТ 
QOENDWHILE 
DEND 
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PRINT USING Displays formatted text 


Syntax: PRINT [#path] USING [format,] data[;data...] 


Function: Prints data using a format you specify. This state- 
ment is especially useful for printing report headings, 
accounting reports, checks, or any document requiring a spe- 
cific format. USING is actually an extension of the PRINT 
statement; therefore, the same rules that apply to the PRINT 
statement also apply to the PRINT USING statement (see 


PRINT). 


Parameters: 


path 


format 


data 


Notes: 


The number corresponding to an opened device 
or file. If you do not specify path, the default 
is #1, the video screen (standard output 
device). To print to another device or file, first 
OPEN a path to that file or device (see 
OPEN). 


An expression specifying the arrangement of 
the displayed data. 


Any numeric or string constant or variable. 
Always enclose string constants within quota- 
tion marks. Each data item must be separated 
by semicolons or commas. 


Each PRINT USING format specifier begins with a single identi- 
fier letter that specifies the type of format, as shown in the fol- 


lowing table: 


tn g — r! 3 J 
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Follow the identifier letter with a constant number that specifies 
the field width. This number indicates the exact number of print 
columns the output occupies. It must allow for both the data and 
any overhead characters, such as sign characters, decimal points, 
exponents, and so on. 


Optionally, you can add a justification indicator to the format 
expression. The indicators are <, >, and ^. The meaning of these 
indicators varies, depending on the format type in which you use 
them. See the format type descriptions for specific information. 


Note: Do not use 2ny spaces within format expressions. 
The following are the format іуре descriptions: 
Real 


Use this format for real, integer, or byte type numbers. The total 
field width specification must include two overhead positions for 
the sign and decimal point. The field width has two parts, sepa- 
rated by a period. The first part specifies the integer portion of 
the field. The second part specifies how many fractional digits to 
display to the right of the decimal point. 


If a number has more significant digits than the field allows, 
BASICO9 uses the undisplayed digits to round the number 
within the correct field width. 


The justification modes are: 


‹ Left justify with leading бірт and trailing spaces. This is 
the default if you omit a justification indicator. 


> Right justify with leading spaces and sign. 


^ Right justify with leading spaces and trailing sign 
(financia] format). 


Some examples and their results are: 


PRINT USING "R8.2«",5678.123 5678.12 
PRINT USING "R8.2>",5678.123 5678.12 
PRINT USING "R8.2»",12.3 12.30 
PRINT USING "R8.2»",-555.9 -555.99 
PRINT USING "R10.2^",-6722.4599 6722.46- 
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Exponential 


Use this format to display real, integer, or byte values in the sci- 
entific notation format—using a mantissa and decimal exponent. 
The field has two parts: the first part must allow for six overhead 
positions for the mantissa sign, decimal point, and exponent 
characters. 


The justification modes are: 


< Left justify with leading sign and trailing spaces. This is 
the default if you omit a justification indicator. 


> Right justify with leading spaces and sign. 
Some examples and their results are: 


PRINT USING "Е12.3",1234.567 1.235Е+03 
PRINT USING "E13.6»",-.001234 -1.234000Е-03 
PRINT USING "Е18.5›", 123456789 1.23457E+98 


Integer 


Use this format to display integer, byte, or real type numbers in 
an integer or byte format. The field width must allow for one 
position of overhead for the sign. 


The justification modes are: 


< Left justify with leading sign and trailing spaces. This is 
the default if you omit a justification indicator. 


> Right justify with leading spaces and sign. 
^ Right justify with leading sign and zeroes. 
Some examples and their results are: 


PRINT USING "14<",18 18 
PRINT USING "I4«",10 18 
PRINT USING "I4^",-10 -810 


Hexadecimal 


Use this format to display any data type in hexadecimal nota- 
tion. The field width specification determines the number of 
hexadecimal characters BASICO9 displays. If the data to display 
is string type, this function displays the ASCII value of each 
character in hexadecimal. 
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Тһе justification modes аге: 


< Left justify with trailing spaces. This 15 Ше default if 
you omit a justification indicator. 


> Right justify with leading spaces. 
^ Center digits. 


The number of bytes of memory used to represent data varies 
according to data type. The following chart suggests field widths 
for specific data types: 


Memory Field Width 
Type Bytes To Specify 
Boolean and Byte 1 2 
Integer 2 4 
Real 5 10 
String 1 per 2 times the string 
character length 


Some examples and their results are: 


PRINT USING "H4",100 8064 
PRINT USING "H4",-1 FFFF 
PRINT USING "H8^","ABC" 414243 


String 


Use this format to display string data of any length. The field 
width specifies the total field size. If the string to display is 
Shorter than the field size, PRINT USING pads it with spaces 
according to the justification mode. If the string to display is 
longer than the specified field width, PRINT USING truncates 
the right portion of the string. 


The justification modes are: 


< Left justify with trailing spaces. This is the default if 
you omit a justification indicator. 


> Right justify with leading spaces. 


^ Center characters. 
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Some examples and their results аге: 


PRINT USING "S9«","HELLO" HELLO 


PRINT USING "S9»","HELLO" HELLO 
PRINT USING "S9^","HELLO" HELLO 
Boolean 


Use this format to display Boolean expression results. BASICO9 
converts the result of the expression to the strings "True" or 
*False." The format and results are identical to STRING formats. 
The justification modes are: 


< Left justify with trailing spaces. This is the default if 
you omit a justification indicator. 


> Right justify with leading spaces. 
ж Center characters. 
If A=5 and B = 6, some examples and their results are: 


PRINT USING "B9«",A«B True 
PRINT USING "B9>",A>B False 
PRINT USING "B9^",A=B False 


Control Specifiers 


You can also use control specifiers within PRINT USING for- 
mats. The three specifiers are: 


Tn Tab. n specifies a tab column at which to display 
the next data. 

Xn Spaces. n specifies a number of spaces to insert. 

Чех? Constant string. text is а string that is constant to 
the format. 


An example and its result is: 


PRINT USING "“Address”,X1,H4,X4,'“Data”,X1,H2", 
1990, 188 


Address 03E8 Data 64 


11-126 


BASIC09 Command Reference / 11 


Repeat 


You can repeat identical sequences of specifications using paren- 
theses within a format specification. Enclose the group of speci- 
fications you wish to repeat, preceded by a repetition count, such 
as: 


"2CX2,r10.52" in place of "X2,R10.S,X2,R10.S" 


"2C12,2€X1,S4))" in place of "12,Х1,54,Х1,54,12,Х1, 
54,Х1,64" 


Sampie Programi: 
Б 


This program looks at memory locations 32000 to 32010 and dis- 
plays their contents in decimal, hexadecimal, and binary. PRINT 
USING formats the display in columns. 


PROCEDURE memlook 

ODIM NUMBER,T,MEM,VALUE: INTEGER 

DDIM X,NUM: INTEGER; CHARACTER,BI:STRING 
OPRINT “GAddr .Прес.ПНех.ОВъ пот ASCII" 
DFOR 2-32000 TO 32010 

DBI="" 

DNUMBER-PEEKCZ) 

OIF NUMBER» THEN 

DGOSUB 1800 

ПЕМОТЕ 

OIF РЕЕКС2) «32 THEN 

ОСНАРАСТЕР<"" 

DELSE 

ОСНАКАСТЕК = СНЕ  (РЕЕКС2) > 

DENDIF 

OIF PEEKCZ2»0 THEN 

OPRINT USING "16<,Т7,14<,Х2,Н4<,Х1,58<,Х2,51",2, 
PEEKCZ),PEEKCZ),BI,CHARACTER 

DELSE PRINT USING "16<,Т7,14<,Х2,Н4<,Х1,58>,Х2, 
51",2,0,0," "0000" ," om 

DENDIF 

DNEXT Z 

DEND 
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1890NUM-LOG16CNUMBER2/.3 
DNUMs2^NUM 

DREPEAT 

DX  NUMBER/NUM 

DIF X>@ THEN ВІ=ВІ+"1" 
ONUMBER=MODCNUMBER , NUM) 
OELSE BI=BI+"0" 

DENDIF 

ONUM=NUM/2 

DUNTIL МОМ<=1 

DIF NUMBER>@ THEN 
ПВ1=В1+"1" 

DELSE BI=BI+"0" 

DENDIF 

DRETURN 

DEND 
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PUT Writes to a direct access file 


Syntax: РОТ £path,data 


Function: Writes a fixed-size binary data record to a file or 
device. Use PUT to store data in random access files. 


Although you usually use PUT with files, you can also use it 
to send data to a device. 


For information about storing data in random access files, see 
Chapter 8, “Disk Files". Also, see GET, SEEK, and SIZE. 


Parameters: 
path A variable name you chose to use in an OPEN 
or CREATE statement that stores the number 
of the path to the file or device to which you 
are directing data. 
data Either a variable containing the data you 
want to send or a string of data. 
Examples: 


PUT #PATH,DATA$ 
PUT INPUT,ARRAYS 


Sample Program: 


This procedure is a simple inventory data base. You type in the 
information for an item name, list cost, actual cost, and quan- 
tity. Using PUT, the procedure stores data in a file named 
Inventory. 


PROCEDURE inventory 

ПТҮРЕ INV_ITEM=NAME:STRING(25]; LIST,COST:REAL; 
QTY: INTEGER 

ODIM INV..ARRAYC1902:INV. ITEM 

ODIM WORK. .REC: INV. ITEM 

0014 PATH:BYTE N 

ПОМ ERROR GOTO 18 
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DDELETE 
1@00N Е 
ОСКЕАТЕ 


"inventory" 
RROR 
#PATH, "inventory" 


OWORK_REC.NAMES"™" 
OWORK_REC.LIST=8 


OFOR Ме 
OPUT #P 
ONEXT М 
DLOOP 

ПІМРУТ 
ПІҒ гес 
OPRINT 
OPRINT 
OPRINT 
OCLOSE 
ПЕКО 

DENDIF 
DINPUT 
ОТКРИТ 
UINPUT 
OINPUT 
(SEEK # 
ОРОТ #P 
OENDLOO 
DEND 
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ПИОЕК-_КЕС.СО5Т=@ 
QWORK_REC.QTY=9 


1 TO 100 
ATH,WORK_REC 


"Record number? ",геспит 
num<1 OR геспит>100 THEN 


"End of Session" 


#PATH 


"Item name? ",WORK_REC.NAME 
"List price? ",WORK_REC.LIST 
"Cost price? ™,WORK_REC.COST 
"Quantity? ",WORK. REC.GTY 
PATH, Crecnum- 1) *SIZECHORK. КЕС) 
ATH,WORK_REC 

Р 
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RAD Returns trigonometric calculations in 
radians 


Syntax: RAD 


Function: Set a procedure’s state flag so that a procedure uses 
radians in SIN, COS, TAN, ACS, ASN, and ATN functions. 
Because this is the BASICO9 default, you do not need to use 
the RAD statement unless you previously used а DEG state- 
ment in the procedure. 


Parameters: None 


Examples: 
RAD 


Sample Program: 


This program calculates sine, cosine, and tangent for a value you 
supply. It calculates one set of results in degrees, using DEG, 
and the second set of results in radians using RAD. 


PROCEDURE trigcalc 
ODIM ANGLE:REAL 


ODEG 

DINPUT "Enter the angle of two sides of а 
triangle...'",ANGLE 

OPRINT 


OPRINT "ООП йпа Те", "SINE", "COSINE", "TAN" 
OPRINT "ПІТШІШП---------------------------------- 


OPRINT "Degrees = "; ANGLE ,SINCANGLE) ,COSCANGLE)D, 
TANCANGLE) 

DRAD 

OPRINT "Radians = "; ANGLE,SINCANGLED ,CDSCANGLED, 
TANCANGLE) 

OPRINT 

DEND 
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READ Reads data from a device or DATA 


statement 


Syntax: READ [#path,] varname 


Function: Reads either an ASCII record from a sequential file 


or device, or an item from a DATA statement. 
Parameters: 
path A variable containing the path number of the 
file you want to access. You can also specify 
one of the standard I/O paths (0, 1, or 2). 
varname The variable in which you want to store the 
data read from a file, device, or DATA line. 
Notes: 
The following information deals with reading sequential disk 
files: 
е To read file records, you must first dimension a variable to 


contain the path number of the file, then use OPEN or 
CREATE to open a file in the READ or UPDATE access 
mode. The command begins reading records at the first 
record in the file. After it reads each item, it updates the 
pointer to the next item. 


Records can be of any length within a file. Make sure the 
variable you use to store the records is dimensioned large 
enough to store each item. If the variable storage is too 
small, BASIC09 truncates the record to the maximum size 
for which you dimensioned the variable. If you do not indi- 
cate a variable size with the DIM statement, the default is 
32 characters. 


BASICO9 separates individual data items in the input 
record with ASCII null characters. You can also separate 
numeric items with comma or space character delimiters. 
Each input record is terminated by a carriage return 
character. 


————————————————————20O 
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Тһе following information deals with reading DATA items: 


ө READ accesses DATA line items sequentially. Each string 
type item in a DATA line must be surrounded by quotation 
marks. Items in a DATA line must be separated with 
commas. 


е Each READ command copies an item into the specified 
variable storage and updates the data pointer to the next 
item, if any. 


@ You can independently move the pointer to a selected DATA 
statement. To do this, use line numbers with the DATA 
Jines See the DATA and RESTORE commands for more 
information on using this function of READ. 


Examples: 
READ #PATH,DATA 
READ £1,RESPONSES 


READ *INPUT,INDEXCX) 


FOR Т=1 TO 18 

READ NAMESCT) 

NEXT T 

DATA "JIM","JOE","GUE" , " TINA" , "WENDY" 

DATA "SALL","MICKIE","FRED", "MARV" , "ИІММІЕ" 
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Sample Program: 


This procedure puts random values between 1 and 10 into a disk 
file, then READS the values and uses asterisks to indicate how 
many times RND selected each value. 


PROCEDURE randlist 

ODIM SHDMW,BUCKET:STRING 

ODIM T,PATH,SELECTC192,R: INTEGER 
DBUCKET-2'»*«*s«wxwusdurkaueumuusasea!t 
OFOR T*1 TO 10 

ОЅЕСЕСТСТ) =# 

ОМЕХТ Т 

ПОМ ERROR GOTO 18 

DSHELL "DEL RANDFILE" 

1@00N ERROR 

DCREATE *PATH,"randfile":UPDATE 
[FOR T=1 TO 189 

[JR*RNDC9) +1 

QWRITE #PATH,R 

ОМЕХТ T 

OPRINT "Random Distribution" 

OSEEK #PATH,@ 

OFOR T=1 TO 168 

DREAD #PATH,NUM 
OSELECTCNUM)=SELECTCNUM) +1 
ПМЕХТ Т 

DFOR T=1 TO 18 
OSHOW=RIGHT$CBUCKET ,SELECTCT)) 

OPRINT USING "S6<,13<,S2<,S20<","Number", 
Tyo") SHOW 

ПМЕХТ Т 

DCLOSE #PATH 

ОЕМ” 
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REM Inserts remarks in a procedure 


Syntax: REM [text] 
(* [text][*)] 


Function: Inserts remarks inside a procedure. BASICO9 
ignores these remarks; they serve only to document a proce- 
dure and its functions. Use remarks to title a procedure, show 
its creation date, show the name of the programmer, or to 
explain particular features and operations of a procedure. 


Parameters: 
text Comments you want to include within a 
procedure 
Notes: 


€ You can insert remarks at any point in a procedure. 


е The second form of REM, using parentheses and asterisks, 
is compatible with Pascal programming structure. 


* When editing programs, you can use the exclamation char- 
acter “!” in place of the keyword REM. 


е BASIC09’s initial compilation retains remarks, but the 
PACK compile command strips them from procedures. 
Examples: 
REM this is a comment 


(* Insert text between parentheses and 
asterisks*) 


С» or use only one parenthesis and asterisk 


< —.x s..--.<əÜ. rsəs..&- > -t>>>—Ə—— H n. 
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Sample Program: 


This procedure uses the various forms of REM to explain its 
operations. 


PROCEDURE copydir 

DREM Use this program with the 

Oce GET sample program to +) 

ПО create a file of directory) 

ПО filenames, then copy ther) 

ОС files to another directory*) 

ODIM PATH,T,COUNT: INTEGER; FILE, JOB,DIRNAME:STRING 
DOPEN #PATH,"dirfile":READ (+ open the file 

INPUT "Name of new directory..." ,DIRNAME (+ get the directory 
DSHELL "MAKDIR "+DIRNAME (+ create a newdirectory 
DSHELL "LOAD COPY" 

CHILE NOTCEOFCZPATH)) DO 

DREAD #PATH,FILE (+ get a filename 

OJOB=FILE+" "+DIRNAME+"/"+FILE Се create the COPY syntax 
ПОМ ERROR GOTO 16 

OPRINT "COPY "; JOB (+ display the operation 
SHELL "COPY "+JOB (+ сору the file 

18D0N ERROR 

CENDWHILE 

DCLOSE #PATH 

ПЕН) 
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REPEAT/UNTIL 


Establishes a loop/Terminates on specified condition 


Syntax: REPEAT 
procedure lines 
UNTIL expression 


Function: Establishes a loop that executes the encompassed 
procedure lines until the result of the expression following 
UNTIL is true. Because the loop is tested at the bottom, the 
lines within the loop are executed at least once. 


Parameters: 
expression A Boolean expression (returns either True or 
False). 
procedure Statements you want to repeat until expression 
lines returns False. 
Examples: 
REPEAT 


COUNT = COUNT+1 
UNTIL COUNT > 166 


INPUT X,Y 

REPEAT 

X = X-1 

Ү = Y-1 

UNTIL X«1 OR Y<80 
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Sample Program: 


Тһе procedure sorts a disk file. In this case, it is written to sort 
the Як е created by the GET sample program—a directory 
listing. It uses a REPEAT/UNTIL loop to compare a string іп 
the file with the first string in the file. If the first string is 
greater than the comparison string, the procedure swaps them. 


PROCEDURE дігесгі 

ODIM BTEMP: BOOLEAN; TEMP,FILESC125):STRING; ТОР, 
BOTTOM,M,N: INTEGER 

ODIM T,X,PATH: INTEGER 

OFOR Т=1 TO 125 
OFILES¢T)="" 

ОНЕХТ Т 

OT=9 

DOPEN *PATH,"dirfile":READ 
DPRINT "LOADING:" 

OWHILE NOTCEOFC#PATH)) ро 
OT=T+1 

OREAD #PATH,FILESCT) 
OENDWHILE 

OTOP=T 

OBOTTOM=1 

OPRINT "SORTING: "; 
1@0N=BOTTOM 

OM=TOP 

OPRINT "."; 

OL oop 

OREPEAT 
OBTEMP=FILESCN)<FILESCTOP) 
ON=N+1 

DUNTIL NOTCBTEMP) 

DN=N-1 

DEXITIF N=M THEN 

DENDEXIT 


DTEMP=FILESCM) 
DFILESCM)=FILESCN) 
DFILESCN)=TEMP 
DN=N+1 

DEXITIF N=M THEN 
DENDEXIT 
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DENDLOOP 

ШЕ М<>ТОР THEN 

DIF FILESCN)<>FILESCTOP) THEN 
DTEMP=FILESCN) 

GF ILESCN)=FILESCTOP) 

ВЕІ ЕЅСТОР Э? = ТЕМР 

DENDIF 

CENDIF 


ПІР BOTTOM<N-1 THEN 
CTOP=N-1 

OGOTO 19 

UENDIF 

ШЕ N*1«TOGP THEN 
DBOTTOMsN:1 

сеото 18 

QENDIF 

OCLOSE #PATH 

ÜDELETE "dirfile" 
DCREATE #PATH,"dirfile™: WRITE 
OPRINT 

OFOR 2-1 ТОТ 
ПЫРІТЕ #PATH,FILESCZ) 
OPRINT ҒІ(Е5С2», 
ONEXT 2 


DCLOSE #РАТН 
DEND 
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RE STORE Resets READ pointer 


Syntax: RESTORE linenumber 


Function: Sets the pointer for the READ command to the 
specified line number. RESTORE without a line number sets 
the data pointer to the first data statement in the procedure. 


READ assigns the items in a DATA statement to variable 
storage. When you read an item, the pointer automatically 
advances to the next item. Using RESTORE you can skip 
backward or forward to data items at a specific line number. 


Parameters: 


linenumber The line number of the DATA items you want 
READ to access next. 


Examples: 
RESTORE 100 


Sample Program: 


This procedure draws a box on the screen. It uses RESTORE to 
repeat the data in line 20 to create the sides of the box. 


PROCEDURE box 

ODIM LINE:STRING 

DREAD LINE 

DPRINT LINE 

DFOR T=1 TO 19 

ОВЕЅТОВЕ 20 

DREAD LINE 

OPRINT LINE 

ПМЕХТ Т 

DRESTORE 19 

DREAD LINE 

DPRINT LINE 

1Q@ODATA "------------------------- " 
260DATA "Пт" 
DEND 


—n5n5s.D— .yəəÜ -———-Ü[ və .> ———-——————— сссы 
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КЕ TURN Returns from subroutine 


Syntax: RETURN 


Function: Returns procedure execution to the line immedi- 
ately following the last GOSUB statement. 


Every subroutine you access with GOSUB must contain a 
RETURN statement. You can call a subroutine in this man- 
ner as many times as you want. 


Parameters: None 


Sample Program: 


This procedure draws a design of asterisks down the display 
screen. It uses MOD to send execution to a series of PRINT 
USING routines over and over. Each PRINT USING routine 
sends execution back to the main routine with a RETURN 
statement. 


PROCEDURE stars 

DDIM T: INTEGER 

DSHELL "TMODE -PAUSE" 

ОРОВ T=1 TO 100 

DON MODCT,8)+1 GDSUB 10,20,30,40,50,60,70,80 
ПМЕХТ T 

DSHELL "TMODE PAUSE" 
DEND 

190PRINT USING "510^", "ж" X RETURN 
200РРІМТ USING "S10^","»«" X RETURN 
ЗОГРЕТ НТ USING "S10^","»x»*«'" X RETURN 
48DPRINT USING "5187", "ае" X RETURN 
SQDPRINT USING "5107", "а" \ RETURN 
ӨЙПРБІМТ USING "5107, "жж" \ RETURN 
7OOPRINT USING "S10^","*x«'" X RETURN 
880PRINT USING "S10^'","««" \ RETURN 
DEND 
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RIGHT$ Returns specified rightmost portion 
of a string 


Syntax: RIGHTS(string,length) 


Function: Returns the specified number of characters from the 
right portion of the specified string. If length is the same as ог 
greater than the number of characters in string, then RIGHT$ 
returns ali of the characters in the string. 


Parameters: 
string A sequence of string type characters or a vari- 
able containing a sequence of string type 
characters. 
length The number of characters you want to access. 
Examples: 


PRINT RIGHT$C"HOTDOG",3) 
PRINT RIGHT$CA$,6) 


Sample Program: 


PROCEDURE lastname 

ODIM NAMES:STRING; LASTNAME:STRING([19] 
OPRINT “Here are the last names:" 

OFOR T=1 TO 18 

OREAD NAMES 

OPOINTER=SUBSTRC" " NAMES) 
ПРОТНТЕК | ЕНСНАМЕЗ) -POINTER 
ÜLASTNAME*sRIGHTS$CNAMES,POINTER) 

OPRINT LASTNAME 

ONEXT Т 

ODATA "Joe Blonski","Mike Marvel","Hal Skeemish", 
"Fred Langly" 

DDATA "Jane Misty","Wendy Paston","Martha 


Upshong","Jacqueline Rivers" 
DDATA "Susy Reetmore", "Wilson Creding" 
ÜEND 
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RND Returns a random value 


Syntax: RND(number) 


Function: Returns a random real value in the following 
ranges: 


If number = 0 then range = 0 tol 
If number > 0 then range = 0 to number 


The values produced by RND are not truly random numbers, 
but occur in a predictable sequence. Specifying a number less 
than 0 begins the sequence over. 

Parameters: 


number A numeric constant, variable, or expression. 


Examples: 
PRINT RNDCS) 
PRINT RNDCA) 
PRINT RNDCA*5) 


Sample Program: 


This procedure presents addition problems for you to solve. 
It uses RND to select two numbers between 0 and 20. 
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PROCEDURE addition 

ODIM &,B,ANSWER,C: INTEGER 

OFOR T=1 TO 5 

DA=RNDC20) 

ПВ-ЕМр<202 

OC=A+B 

DPRINT USING "’What 15:0*,13›",А 
OPRINT USING "ТОТО „135“, В 
OPRINT "EE Ы 

CINPUT "RECUO" , ANSWER 

OIF ANSWER=C THEN 

OPRINT "CORRECT" 

DELSE 

OPRINT “WRONG” 

DENDIF 

DPRINT 

ПМЕХТ Т 

DEND 
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КОМ Executes another procedure 


Syntax: RUN procname [(paraml,param,...])] 


Function: Calls a procedure for execution, passing the speci- 
fied parameters to the called procedure. When the called pro- 
cedure ends, execution returns to the calling procedure, 
beginning at the statement following the RUN statement. 


RUN can call a procedure existing within the workspace, a 
procedure previously compiled by the PACK command, or a 
machine language procedure outside the workspace. 


Parameters: 
procname The name of the procedure to execute. The 
procname can be the literal name of the proce- 
dure to execute, or it can be a variable name 
containing the procedure name. 
param One or more parameters that the called pro- 
gram needs for execution. The parameters can 
be variables or constants, or the names of 
entire arrays or data structures. 
Notes: 


е You can pass all types of data to a called program except 
byte type. However, you can pass byte arrays. 


е If a parameter is a constant or expression, BASICO9 passes 
it by value. That is, BASICO9 evaluates the constant or 
expression and places it in temporary storage. It passes the 
address of the temporary storage location to the called pro- 
cedure. The called program can change the passed values, 
but the changes are not reflected in the calling procedure. 


e If a parameter is the name of a variable, array, or data 
structure, BASICO9 passes it to the called program by ref- 
erence. That is, it passes the address of the variable storage 
to the called procedure. Thus, the value can be changed by 
the receiving procedure, and these changes are reflected in 
the calling procedure. 
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е If the procedure named by RUN is not in the workspace, 
BASIC09 looks outside the workspace. If it cannot find it 
there, it looks in the current execution directory for a disk 
file with the proper name. If the file is on disk, BASICO9 © 
loads and executes it, regardless of whether it is a packed 
BASICO9 program or a machine language program. 


If the program is а machine language module, BASICO9 
executes a JSR (jump to subroutine) instruction to its entry 
point and executes it as 6809 native code. The machine 
language program returns to the original calling procedure 
by executing a RTS (return {тота subroutine) instruction. 


е After you call an external procedure, and no longer need it, 
use KILL to remove it from memory to free space for other 
operations. 


* Machine language modules return error status by setting 
the C bit of the MPU condition codes register, and by set- 
ting the B register to the appropriate error code. 


Examples: 
RUN CALCULATEC19,20,ADD) Q 


RUN PRINTCTEXTS) 


Sample Program: 


Makelist creates and displays a list of fruit. Next, it asks you to 
type a word to insert. After you type and enter a new word, 
Makelist uses RUN to call a second procedure named Insert to 
look through the list and insert the new word in alphabetical 
order. After each insertion, the procedure asks for another word. 
Press only to terminate the program. 


PROCEDURE makelist 

DDIM LISTC25),NEWORD, TEMPHORD:STRINGL15] 

ODIM T,LAST:INTEGER 

OLAST=19 

OPRINT "This is your list..." 

OFOR T=1 TO LAST о 
OREAD LISTCT) 

OPRINT LISTCT), 

ОЧЕХТ T 

П.00Р 


———. ĖÊŐŐ—mnmaaaasasao 


11-146 


BASIC09 Command Reference / 11 


ПРРІМТ 

OPRINT 

DINPUT "Туре a word to insert...",NEWORD 
DEXITIF NEWORD="" THEN 

OPRINT 


DEND “I’ve ended the session at your request..." 
DENDEXIT 

ORUN InsertC(LIST,NEWORD,LAST) 

DPRINT 

ÜPRINT "This is your new list..." 
DFOR T=1 TO LAST 

OPRINT LISTET), 

ONEXT Т 

OPRINT 

DENDLDOP 

ODATA "APPLES","BANANAS" , "CANTALOUPE" 
ODATA "DATES","GRAPES","LEMONS* 

DDATA "MANGDS","PEACHES" , "PLUMS" 
ODATA "PEARS" 


PROCEDURE insert 

OPARAM LISTC2S),NEWORD:STRING([15] 
OPARAM LAST: INTEGER 

ODIM TEMPWORD:STRING([1S] 
ODIM T,X: INTEGER 

ПТ-1 

DMHILE NEWORD>LISTCT) DD 
OT=T+1 

DENDWHILE 

OFOR X=T TO LAST 
OTEMPWORD=LISTCX) 
OLISTCX)=NEWORD 
ONEWORD=TEMPWORD 

DNEXT X 

DLASTsLAST*1 
OLISTCLAST)=NEWORD 

DEND 
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SEEK Resets the direct-access file pointer 


Syntax: SEEK #path,number 


Function: Changes the file pointer address in a disk file. The 
pointer indicates the location in a file for the next READ or 
WRITE operation. 


You usually use SEEK with random access files to move the 
pointer from one record to another, in any order. You can also 
use SEEK with sequential access files to rewind the pointer 
to the beginning of the file (to the first item or record). 


For information about storing data in random access files, see 
Chapter 8, “Disk Files.” Also see PUT, GET, and SIZE. 


Parameters: 
path A variable name you choose in which BASICO9 
Stores the number of the path it opens to the 
file you specify. 
number The item or record number you want to access. 
If you are rewinding a sequential access file, 
specify a number of 0. 
Examples: 


SEEK #PATH,@ 
SEEK #OUTFILE,A 


SEEK *INDEX,LOCATION*SIZECINVENTORY) 


Sample Program: 


This procedure creates a file named Теѕі1, then writes 10 lines 
of data into it. Next, it reads the lines from the file and displays 
them. It uses SEEK to both store and extract the lines in blocks 
of 25 characters. 
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PROCEDURE makelines 
ODIM LENGTH:BYTE 
ODIM LINE:STRINGI25] 
DDIM PATH:BYTE 
GLENGTH=25 

ОВАЅЕ 0 

ПОМ ERROR GOTO 18 
ÜDELETE "testi" 
1600N ERROR 


DCREATE #РАТН, "Тез 11": WRITE 


OFOR Т=@ TO 9 

DREAD LINE$ 

ОБЕЕК #PATH,LENGTH*T 
ПРОТ #PATH,LINE$ 
DNEXT Т 

DCLOSE #PATH 


DOPEN #PATH,"test1":READ 
OFOR T=9 TO 0 STEP -1 
OSEEK #PATH,LENGTH*T 
ПОЕТ #PATH,LINE 

DPRINT LINE 

DNEXT T 

DCLOSE PATH 

DEND 


[DATA "This is test line #1" 
ODATA "This is test line #2" 
DDATA "This is test line #3" 
DDATA "This is test line #4" 
ODATA "This is test line #5" 
ODATA "This is test line #6" 
DDATA "This is test line 47" 
DDATA "This is test line #8" 
Прата "This is test line #9" 
ODATA "This is test line #10" 
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SGN Returns а value’s sign 


Syntax: SGN(number) 


Function: Determines whether а number’s sign is positive or 
negative. 


If number is less than 0, then SGN returns -1. If number 
mgr 


equals 0, then SGN returns 0. If number if greater than 0, 
then SGN returns 1. 


Parameters: 
number The value for which you want to determine the 
sign. 
Examples: 


PRINT SGNC-22) 
PRINT SGNCA) 
PRINT SGNC44-A) 


Sample Program: 


This procedure uses SGN to create half sine waves down the 
screen. SGN tests when the SIN calculation results are positive. 
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PROCEDURE На! + з; пе 

ODIM FORMULA,CALCULATE,POSITION:REAL 
DSHELL "DISPLAY 0с" 
DFORMULA*CPI*2)2/15 
OCALCULATE=FORMULA 

DSHELL “TMODE -PAUSE" 

ПЕПЕ Т=@ TO 1800 
OCALCULATE=CALCULATE+FORMULA 
OPOSITION=INTCSINCCALCULATE)#10+16) 
CIF SGNCSINCCALCULATE))>6 THEN 
OPRINT TABCPOSITION); "+" 

DENDIF 

СМЕХТ T 

CSHELL “TMODE PAUSE" 

DEND 


11-151 


BASIC09 Reference 


SHE LL Forks another shell 


Syntax: SHELL [“string”][+ *string"...] + variable] 
[+ variable...] 


Function: Executes OS-9 commands or programs from within 
a BASIC09 procedure. Using SHELL, you can access OS-9 
functions, including multiprogramming, utilities, commands, 
terminal and input/oviput control, and so on. 


When you use tne SHELL command, OS-9 creates a new pro- 
cess to handle the commands you provide. If you specify ап 
operation, BASICO9 evaluates the expression and passes it to 
the shell for execution. If you do not specify an operation, 
BASICO9 temporarily halts, and the shell process displays 
prompts and accepts commands in the normal manner. In this 
case, press to return to BASIC09. 


When the shell process terminates, BASICO9 becomes active 
and resumes execution at the statement following the SHELL 
statement. 


Parameters: 
string Any OS-9 command or function. String con- 
stants must be enclosed in quotation marks. 
Concatenate string constants and string vari- 
ables using a plus symbol (+). 
variable Any string variable containing an OS-9 com- 


mand or function. 
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Examples: 
SHELL “COPY FILE1 FILE2" 


SHELL “COPY FILE1 FILE2&" 
SHELL "COPY "«FILE$«" "«DIRNAME*"/"FILE$ 
SHELL "LIST DOCUMENT" 


SHELL "KILL "*STR$CN) 


Sample Program: 


You must use this procedure with the GET sample program. 
Using the two programs together enables you to copy all the files 
from one directory to another directory. The GET sample pro- 
gram reads the files in a directory and stores them in a file 
named Dirfile. This procedure reads the filenames from Dirfile 
and uses SHELL to copy them to the directory you specify. 


PROCEDURE copyutil 

DDIM PATH,T,COUNT: INTEGER; FILE,JOB,DIRNAME:STRING 
DOPEN #PATH,"dirfile™:READ 

DINPUT "Name of new directory..." ,DIRNAME 

DSHELL "MAKDIR "*DIRNAME 

DSHELL "LOAD COPY" 

QWHILE NOTCEOFC#PATH)) DD 

DREAD #PATH,FILE - 
DJOB*FILE*" "+DIRNAME+"/"+F ILE 
DON ERROR GOTO 12 
OPRINT "COPY 4; JOB 
ÜSHELL "COPY "+ 08 
1800N ERROR 
DENDWHILE 

OCLOSE #PATH 

DEND 
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SIN Returns the sine of a number 


Syntax: SIN(number) 


Function: Calculates the trigonometric sine of number. You 
can use the DEG or RAD commands to cause number to rep- 
resent a value in either degrees or radians. Unless you specify 
DEG, the default is radians. SIN returns a real number. 


Parameters: 
number The angle of two sides of a triangle for which 
you want to find the ratio. 
Examples: 


PRINT SINC45) 


Sample Program: 


This procedure calculates sine, cosine, and tangent values 
for a number you type. 


PROCEDURE ratiocalc 

ODEG 

ODIM ANGLE:REAL 

OINPUT "Enter the angle of two sides of а 


triangle...",ANGLE 

OPRINT 

OPRINT "Angle", "SINE", "COSINE", "TAN" 

OPRINT "------------------------------------------ 


OPRINT ANGLE ,SINCANGLE) ,COSCANGLE), TANCANGLE) 
OPRINT 
DEND 
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SIZE Returns the size of a data structure 


Syntax: SIZE(variable) 


Function: Returns the size in bytes of a variable, array, or 
data structure. SIZE is especially useful with random access 
files to determine the size of records to store in a file. You can 
also use SIZE to determine the size of variable storage for 
other purposes. 


SIZE returns the size of assigned storage, not. necessarily the 
size of a string. For example, if you dimension a variable for 
15 characters, and assign a 10-character string to it, SIZE 
returns 15, not 10. SIZE returns the total size of arrays. That 
is, it returns the number of elements multiplied by the size of 
the elements. 


Parameters: 
uariable The variable, array, or data structure for 
which you want to find the size. 
Examples: 


RECORDLENGTH = SIZECA$) 


PRINT "YOUR МАМЕ IS STORED IN A "; SIZECNAMES$); 
" CHARACTER STRING." 


Sample Program: 


This procedure creates a simple inventory, stored in a 
file named Inventory. It uses SIZE to calculate the size 
of each element to be stored in the file, and to move 
the pointer to the beginning of each record's storage 
Space. 
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PROCEDURE inventory 

ПТҮРЕ INV_ITEM=NAME:STRING[251; LIST,COST:REAL; 
QTY:INTEGER 

DDIM INV_ARRAYC100):INV_ ITEM 

ODIM WORK_REC: INV_ITEM 

ODIM PATH: BYTE 

DON ERROR GOTO 18 

ODELETE "inventory" 

10СОМ ERROR 

DCREATE #РАТН, "і пуепіогу" 
ОНОВК. КЕС. NAME =" 

QOWORK_REC.LIST=86 

OWORK_REC.COST=@ 

OWORK_REC.QTY=8 

OFOR N=1 TO 100 

OPUT #PATH,WORK_REC 

ONEXT N 

DLOOP 

DINPUT "Record number? ",recnum 

OIF recnum<1 OR recnum>100 THEN 
OPRINT 

OPRINT "End of Session" 

UPRINT 

OCLOSE #РАТН 

DEND 

ОЕМОТЕ 

OINPUT "Item name? ",WORK_REC.NAME 
DINPUT "List price? ",WORK_REC.LIST 
ОТКРИТ "Cost price? ",WORK_REC.COST 
DINPUT “Quantity? “,WORK_REC.QTY 
OSEEK *PATH,Crecnum-12*SIZECHORK. REC) 
ОРОТ #PATH,WORK_REC 

DENDLOOP 

DEND 
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SQ Returns the value of a number raised to the 
power of 2 


Syntax: SQ(number) 


Function: Calculates the value of a number raised to the 
power of 2. 


Parameters: 


number The number you want raised to the power of 2. 


Examples: 
PRINT SQC188) 


PRINT PI*SQCR) 


Sample Program: 


This procedure uses SQ in a formula that positions asterisks on 
the screen in a sine wave pattern. 


PROCEDURE sinedown 

ODIM FORMULA,CALCULATE ,POSITION:REAL 
OSHELL "DISPLAY ВС" 
OFORMULA=CPI+2)/15S 
OCALCULATE=FORMULA 

OSHELL "TMODE -PAUSE" 

OFOR T=8 TO 200 
OCALCULATE=CALCULATE+SQCFORMULA)D 
OPOSITION=INTCSINCCALCULATE)*12+16) 
OPRINT TABCPOSITION); "+" 

DNEXT T 

DSHELL "TMODE PAUSE" 

DEND 
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SQR/ SQRT Returns the square root of a 


number 


Syntax: SQR(number) 
SQRT(number) 


Function: Calculates the square root of a number. SQR and 
SQRT serve the same function. 


Parameters: 
number The number for which you want the square 
root. 
Examples: 


PRINT SQRC188) 


PRINT PI*SQRTCR) Q 


Sample Program: 


This procedure uses SQRT in a formula to position asterisks on 
the screen in a sine wave pattern. 


PROCEDURE sqrdown 

ODIM FORMULA,CALCULATE,POSITION:REAL 
DSHELL "DISPLAY С" 

DFORMULA=PI/1S 

OCALCULATE=FORMULA 

OSHELL "TMODE -PAUSE" 

DFOR Т=@ TO 200 
OCALCULATE=CALCULATE+SQRTCFORMULA) 
OPOSITION=INTCSINCCALCULATE)#12+16) 
OPRINT TABCPOSITION); "+" 

DNEXT Т 

DSHELL "TMODE PAUSE" 


DEND о 
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STEP Establishes the size of increments in a 
FOR loop 


Syntax: 

FOR variable = init val TO end val [STEP value] 
[procedure statements] 

NEXT variable 


Function: STEP provides an increment value in a FOR/NEXT 
loop. If you do not specify a STEP value, the loop steps in 
increments of 1. 


BASIC09 executes the lines following the FOR statement until 
it encounters a NEXT statement. Then it either increases or 
decreases the initial value by 1 (the default) or by the value 
given by STEP. If you give the loop an initial value that is 
greater than the final value, and specify a negative value for 
STEP, the loop decreases from the initial value to the end 
value. 


Parameters: 
variable Any legal numeric variable name. 
init val Any numeric constant or variable. 
end val Any numeric constant or variable. 
value Any numeric constant or variable. 
procedure Procedure lines you want to be executed 
statements within the loop. 
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Examples: 
FOR COUNTER = 1 to 100 STEP .5 
PRINT COUNTER © 
NEXT CDUNTER 
FOR X = 10 TO 1 STEP -1 


PRINT X 
NEXT X 


FOR TEST = А TO B STEP RATE 
PRINT TEST 
NEXT TEST 


Sample Program: 


This procedure reverses the order of characters in a word or 
phrase you type. It uses STEP to decrement a counter that 
points to each character in the string in reverse order. 


PROCEDURE reverse 
DDIM PHRASE:STRING; T,BEGIN:INTEGER 


OPRINT "Туре a word or phrase you want to о 
гемегве:“; 
OPRINT 


OINPUT PHRASE 

OBEGIN=LENCPHRASE) 

OPRINT "This із how your phrase looks backwards:" 
ÜFOR T=BEGIN TO 1 STEP -1 

OPRINT MID$CPHRASE,T,1)3 

ОМЕХТ Т 

OPRINT 

DEND 
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STOP Terminates a procedure 


Syntax: STOP ["string"] 


Function: Causes a procedure to cease execution, print the 
message “STOP Encountered", and return control to 
BASIC09’s command mode. You can also specify additional 
text to display when BASICO9 encounters STOP. 


Use stop when you want a procedure to terminate without 
entering the DEBUG mode. 


Parameters: 

string Text to display when STOP executes. 
Examples: 

STOP "Program terminated before completion." 

IF RESPONSE = "Y" THEN STOP "Program terminated 


at your request." 
ENDIF 
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STR$ Converts numeric data to string data 


Syntax:  STR$(number) 


Function: Converts a numeric type to a string type. This lets 
you display the number as a string or use string operators on 
a number. The conversion replaces the numeric values with 
the ASCII characters of the number. STR$ is the inverse of 
the VAL function. 


Parameters: 


number Any numeric-type data. 


Examples: 
PRINT STRSC18100 


DIM I:INTEGER 
1-44 
PRINT STR$CI) 


DIM B:BYTE 
В-001 
PRINT STR$(B) 


DIM R:REAL 
R=1234.56 
PRINT STR$CR) 


Sample Program: 


This procedure calculates an exponential value, then adds the 
necessary number of zeroes to convert it to standard notation. It 
uses STR$ to convert the number you type to a string type value 
so that it can use string functions to add the zeroes. 
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PROCEDURE bignum 

ODIM C,PLACES,B,SIGN:STRING; EX,COUNT,NEWCOUNT, 
DECIMAL: INTEGER 

ODIM NEW,ZERO,NEWEST:STRING(L199) 

OCOUNT=-1 
UZERO-"20900080009000000000000000209000009000" 
ПМЕМ="" \NEWEST="" 

DINPUT “What number do you want to raise to the 
power of 14?...", NUM 

(JA  NUM^ 1 4 

[B- S TR$CA) 

DEX-SUBSTRC"E",B) 

OSIGN=MID$CB,EX+1,1) 
OPLACES=RIGHT$C€B,LENCB)-EX-1) 

OFOR T=1 TO LENCB) 
OC=MID$CB,T,1) 

DIF С="," THEN 

ODECIMAL=8 

OGOTO 16 

DENDIF 

ODECIMAL=DECIMAL+1 

OIF Cs"E" THEN 108 

DNEW=NEW+C 

109DNEXT Т 
ТОВПМЕМСОЦИНТ = МАЕ (РГАСЕ5 ) - DECIMAL 
ONEW=NEW+LEFT$CZERO,NEWCOUNT+1) 
OFOR T=LENCNEW) TO 1 STEP -1 
OCQUNT=COUNT+1 
ONEWEST=MID$CNEW,T,12+NEWEST 

OIF MODCCOUNT,3)=2 AND T>1 THEN 
ONEWEST="","+NEWEST 

ПЕМОТЕ 

ПМЕХТ Т 

OPRINT NUM; " to the power of 14 = "; a 
DPRINT "= "; МЕМЕ5Т 

DEND 
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SUBSTR Searches for specified characters in 
a string 


Syntax: SUBSTR(targetstring,searchstring) 


Function: Searches for the first occurrence of targetstring 
within searchstring and returns the numeric value of its loca- 
tion. SUBSTR counts the first character in searchstring as 
character Number 1. Therefore, if you searched for the string 
“worth” in the string “Fortworth”, SUBSTR returns a value of 
5. 


If SUBSTR cannot find targetstring, it returns a value of 0. 


Parameters: 
targetstring | The group of characters you want to locate. 


searchstring The string in which you want to find 
targetstring. 


Examples: 
PRINT SUBSTRC"THREE"™, "DNETHOTHREEFDURF IVESIX") 


X-SUBSTR(C" ",FULLNAME$2) 


Sample Program: 


This procedure selects the last name from a string con- 
taining both a first name and a last name. It uses 
SUBSTR to find the space between the two names in 
order to determine where the last name begins. 
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PROCEDURE lastname 

ODIM NAMES:STRING; LASTNAME:STRINGEI101 
DPRINT "Here are the last names:" 

OFOR Т=1 TO 16 

DREAD NAMES 

CPOINTER=SUBSTRC" ",NAMES) 
DPOINTER-LENCNAMESO -POINTER 
DLASTNAME-RIGHT$CNAMES,POINTER) 

OPRINT LASTNAME 

ПМЕХТ T 

ODATA "Joe Blonski","Mike Магуе!", "На! 
Skeemish","Fred Laungly" 

ODATA "Jane Мїзїу","Мепду Paston","Martha 
Upshong", “Jacqueline Rivers" 

DDATA "Susy Reetmore","Wilson Creding" 
ПЕМ” 
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SYSCALL Executes an OS-9 System Call 


Syntax: SYSCALL callcode registers 


Function: Lets you execute any OS-9 system call from 
BASIC09. Use this command to directly manipulate your sys- 
tem or data or to directly access devices. 


Be careful! Used improperly, SYSCALL can cause undesira- 
ble results—you might unintentionally format a disk or 
destroy disk or memory data. Before using SYSCALL, you 
should be familiar with assembly language programming and 
should understand the system call information in the OS-9 
Technical Reference manual. The OS-9 Technical Reference 
manual provides information about all OS-9 system calls. 


To pass required register values to the SYSCALL command, 
create a complex data structure that contains values for all 
registers. For example: 


TYPE REGISTERS=CC,A,B,DP:BYTE; X,Y,U: INTEGER 
DIM REGS:REGISTERS 
DIM CALLCODE:BYTE 


The complex data type REGISTERS contains values for all 
registers. Unless you specifically assign values to variables 
(for instance, REGS.CC, REGS.A, and REGS.B in the pre- 
vious example), they contain random values. See the TYPE 
command for further information. 


Parameters: 
сайсоде is Ше request code of the system call you wish 
to use. All system call codes are referenced in 
the OS-9 Technical Reference manual. 
registers is a list of the register entry values required 


for the system call you are using. 


Examples: see “Sample Programs.” 
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Sample Programs: 


The following programs set up a data type (REGISTERS) for the 
register variables. Before executing SYSCALL, the procedures 
store the required register entry values in the complex data 
structure REGS. The procedures also establish CALLCODE аз a 
variable to hold the request code of the system call you want to 
use. 


The Writecall procedure uses the string variable TEST to store 
text that it writes to the screen through Path 0 (the standard 
output path) using System Call $8A, I$Write. Before the proce- 
dure calls I$Write, it stores the appropriate path number (0) in 
Register A. The ADDR command calculates the address of the 
variable TEST, and the LEN command determines the length of 
the variable. The procedure stores these two values in Registers 
X and Y. 


The Readcall uses System Call $8B, I$ReadLn to perform a 
function that is the opposite of Writecall. Readcall establishes 
TEST as a string variable into which it writes the characters 
you type. Because the length of TEST is restricted to ten charac- 
ters (DIM TEST:STRING[191), the terminal bell sounds if you 
attempt to type more than 10 characters. Pressing [ENTER] 
terminates the call and the procedure prints the contents of 
TEST—the characters you typed. 
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PROCEDURE WriteCall 

ПТҮРЕ REGISTERS=CC,A,B,DP:BYTE; X,Y,U:INTEGER 
DDIM REGS:REGISTERS 

ODIM PATH,CALLCODE:BYTE 

ODIM TEST:STRING(S@] 

OTEST="This is a test of I$Write, System call 
58А..." 

ПВЕО5.А-й 

DREGS.X-ADDRCTEST) 

DREGS.Y=LENCTEST) 

OCALLCODE=$8A 

ORUN SYSCALLCCALLCODE ,REGS) 

OPRINT 

DEND 


PROCEDURE Readcall 

ПТҮРЕ REGISTERS=CC,A,B,DP:BYTE; X,Y,U: INTEGER 
ODIM REGS:REGISTERS 

ODIM PATH,CALLCODE:BYTE 
ODIM TEST:STRING(19) 
OREGS.A=8 
OREGS.X=ADDRCTEST) 
OREGS.Y=18 

OCALLCODE=$8B 

ORUN SYSCALLCCALLCODE , REGS) 
DPRINT 

DPRINT TEST 

DEND 
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TAB Causes PRINT to jump to the specified 
column 


Syntax: TAB(number) 


Function: Causes PRINT to display the next PRINT item to 
display in the column specified by number. If the cursor is 
already past the desired tab position, BASICO9 ignores TAB. 


Use POS to determine the current cursor position when dis- 
playing characters on the screen. 


Screen display columns are numbered from 1, the leftmost col- 
umn, to a maximum of 255. The size of BASICO9 output 
buffer varies according to the stack size. 


You can also use TAB with PRINT USING statements. 


Parameters: 
number The column at which you want PRINT to 
begin. 
Examples: 


PRINT TABC202;TITLES$ 
PRINT TABCXO;ITEMNUMBER; ITEMS 


Sample Program: 


This procedure uses asterisks to simulate a sine wave on the 
screen. It uses TAB to position each asterisk in the proper 
location. 
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PROCEDURE sinewave 

ODIM FORMULA,CALCULATE,POSITION:REAL 
DSHELL "DISPLAY ВС" 
DFORMULAsCPI*22/15 
OCALCULATE=FORMULA 

OSHELL "TMODE -PAUSE" 

ПЕПЕ T=@ TO 200 
OCALCULATE=CALCULATE+SQCFORMULA)D 
OPOSITION=INTCSINCCALCULATE)*12+16) 
OPRINT TABCPOSITION); "*“ 

ONEXT T 

DSHELL "TMODE PAUSE" 

OEND 
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ТАМ Returns Ше tangent of а value 


Syntax: TAN(number) 


Function: Calculates the trigonometric tangent of number. 
Using DEG or RAD, you can specify the measure of the angle 
(number) in either degrees or radians. Radians are the default 
units. 


Parameters: 
number The angle for which you want to find the 
tangent. 
Examples: 


PRINT TANC45) 


Sample Program: 


This procedure calculates sine, cosine, and tangent values for a 
number you type. 


PROCEDURE ratiocalc 

ODEG 

0014 ANGLE:REAL 

UINPUT "Enter the angle of two sides of a 


iriangle...",ANGLE 

OPRINT 

OPRINT "Angle","SINE","COSINE" ," TAN" 

OPRINT "--------------------------------------.--- 


OPRINT ANGLE,SINCANGLE),COSCANGLE),TANCANGLE) 
DPRINT 
DEND 


11-171 


BASICO9 Reference 


TRIM$ Removes spaces from the end of a string 


Syntax: TRIM&(string) 


Function: Removes any trailing spaces from the end of the 
specified string. This function is particularly useful for trim- 
ming records you recover from a random access file. 


Parameters: 
string The string or string variable from which you 
wish to remove trailing spaces. 
Examples: 


PRINT TRIM$CAS) 


GET A$,B$,C$ 
PRINT TRIMSCAS),TRIMSCBS),TRIMSCCS$) 


Sample Program: 


This program takes names you type and puts them in a 
random access disk file. Because random access files use 
the same amount of storage for each item, short names 
are padded with extra spaces. When reading the names 
back from the file, the procedure uses TRIM$ to remove 
these extra spaces. 


PROCEDURE namestor 

ODIM NAMES, TEMP1 ,МАМЕ(100):5ТВІМбІ261; FIRST,LAST: 
STRING(1S]; INITIAL:STRING([1] 
ODIM PATH,T: INTEGER 

Омаме5<“" 

DON ERROR GOTO 18 

ODELETE "пате! 151" 

1@00N ERROR 

ПСВЕАТЕ #РАТН, “пате! 151": ПРОАТЕ 
DFOR Т=1 TO 100 

ПМАМЕСТ)="" 

ПМЕХТ Т 

ПТ=@ 
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Oloap 

DINPUT "First Name: ",FIRST 

DEXITIF FIRST="" THEN 

DCLOSE #РАТН 

OGOTO 100 

DENDEXIT 

DINPUT "Initial: ",INITIAL 

UINPUT "Last: ",LAST 

OT=T+1 

ОМАМЕ СТ) =РІВЅТ+" "+INITIAL+" "+L AST 
ПРИТ #PATH,NAMECT) 

DSEEK ФРАТН,Тж26 

DENDLOOP 

18900PEN *PATH,"namelist":READ 
DPRINT \ PRINT 

OPRINT "Lastname", "Firstname", "Initial" 
OREM Print underline (40 characters) 
OPRINT " м 
OPRINT 

OSEEK #РАТН, 0 

OT=6 

CWHILE NOTCEOFC#PATH)) DO 

ПОЕТ #PATH,NAMES 


DT=T+1 
CNAMES=TRIM$CNAMES) 
DX-SUBSTR(C" ",МАМЕ5) 


OF IRST=LEFT$CNAMES,X-1) 
OTEMP1=RIGHT$CNAMES ,LENCNAMES)-X+1) 
DINITIAL=MID$CTEMP1 ,2,1) 
DLAST=RIGHT$CTEMP1 ,LENCTEMP1)-3) 
OPRINT LAST,FIRST,INITIAL 

DSEEK #PATH,T*26 

DENDHHILE 

DCLOSE #PATH 

DEND 
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TRON/ ТВОЕ Е Turns on/off trace function 


Syntax: TRON 
TROFF 


Function: Turns on or off the BASICO9 trace mode. When 
trace is turned on (TRON), BASICO9 decompiles and displays 
each statement in a procedure before execution. BASICO9 also 
displays the result of each expression after evaluation. This 
function lets you follow program flow and is helpful in debug- 
ging and analyzing the execution of a procedure. After the 
procedure is debugged, remove the TRON statement. 


If you want to view only a portion of a procedure's execution, 
surround that portion with TRON and TROFF. Tracing 
begins immediately after the TRON statement and ends at 
the TROFF statement. The rest of the program executes 
normally. 


Parameters: None 


Examples: 


B$-"00000000000000000000" + В5 
N=1+LENCB$) 

FOR I*4 TO 1 STEP -1 

TRON 

N=N-4 

ACT) =VALCMID$CB$,N,4)) 

TROFF 

NEXT I 
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TRUE Returns a Boolean TRUE value 


Syntax: variable= TRUE 


Function: TRUE is a Boolean function that always returns 
True. You can use TRUE and FALSE to assign values to Boo- 
lean variables. 


Parameters: 
uariable The Boolean storage unit you want to set to 
True. 
Examples: 


DIM TEST:BOOLEAN 
TESTSTRUE 


Sample Program: 


This procedure asks five questions. If your answer is correct, it 
stores the Boolean value TRUE in a Boolean type variable. If 
your answer is incorrect, it stores the Boolean value FALSE in 
the variable. 


PROCEDURE quiz 

ODIM REPLY,VALUE:BOOLEAN; ANSWER:STRING[113 
QUESTION: ЗТЕТНО (80) 

DFOR T=1 70 5 

OREAD QUESTIDN,VALUE 

OPRINT QUESTION 

OPRINT "CT) = TRUEQOOOOMCF) = FALSE" 

OPRINT "Select T or F: D"; 

ПОЕТ #1,ANSWER 

OIF ANSWER="T" THEN 

OREPLY=TRUE 

OELSE 

OREPLY=FALSE 

OENDIF 

ОТЕ REPLY=VALUE THEN 

OPRINT \ PRINT "That's Correct...Good Show!" 
OELSE 


—<,'.vA<..-P,>—-— .>,>+—+————oo Ü 
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DPRINT "Sorry, you're wrong...Better Luck next 
time." 


DENDIF 

OPRINT \ PRINT \ PRINT © 
ONEXT Т 

ODATA "In computer talk, CPU stands for Central 
Packaging Unit.", FALSE 


DDATA "The actual value of 64K is 65536 
bytes.",TRUE 

DDATA "The bits in a byte are normally numbered 0 
through 7.",TRUE 

Прата "ВА51С09 has four data types.",FALSE 

Срата "The LAND function is a Boolean type 
operator." ,FALSE 

OEND 
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TYP E Defines a data type 


Syntax: ТҮРЕ name = typedeclar [;typedeclarí;...]] 


Function: Defines new data types (complex data structures). 
New data types are vectors (one-dimensional arrays) of previ- 
ously defined types. Structures created by TYPE differ from 
arrays in that they can consist of elements of different types, 
and BASICO9 accesses elements by field names rather than by 
an indexed position. 


Parameters: 
name Тһе name you select for the new data type. 
typedeclar One or more type declarations, which can con- 
sist of field names, type declarations, and sub- 
scripts. Separate different types or different 
lengths of string declarations with semicolons. 
Notes: 


е Complex data structures allow you to create data types that 
are appropriate for a specific task. You can organize, read, 
and write associated data naturally. Also, BASICO9 estab- 
lishes and defines element positions at compilation time. 
This saves time and overhead at run time because 
BASICO9 can access the elements of a data structure faster 
than it can access the elements of an array. 


е When you define new data structures using TYPE, you can 
include any of the five existing data types (string, real, 
integer, byte, and Boolean), or you can include data struc- 
ture types that you previously defined with TYPE. This 
means that your structures can be simple or very complex, 
such as non-rectangular data lists or trees. 


е TYPE does not create storage. You create storage using the 
DIM statement, after using TYPE. 


е To access elements of a data structure, use the field name 
as well as any appropriate element index. 
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е For more information on creating and using complex data 
types, see “Complex Data Types” in Chapter 6. 


Examples: 


TYPE LIBRARY=TITLE,AUTHOR,PUBLISHER:STRINGI25]; 
REFERENCE:INTEGER 
DIM BOOK(500):LIBRARY 


TYPE PARTS=ITEM,LOCATIDN:STRING[201; CAT:REAL; 
QUANTITY; INTEGER 
DIM ІМУЕМТПВҮС10800):РАЕТ5 


Sample Program: 


This procedure builds an array to contain a book reference list, 
including the book title, the author’s name, the publisher, and a 
reference number. It does so by using TYPE to create a special 
data structure to store all the information for each book. 


PROCEDURE books 

ПТҮРЕ LIBRARY=TITLE,AUTHOR,PUBLISHER:STRING( 301]; 
REFERENCE: INTEGER 

ODIM BOOKSC108):LIBRARY 

Пт-й 


DLODP 
HT=T+1 
DINPUT “BOOK TITLE..." ,BT$ 
OBOOKSCT).TITLE=BT$ 
ПЕХТТТЕ BOOKSCTO.TITLE-"" THEN 
OGOTO 100 
ПЕНОЕХТТ 
ПІНРОТ "Book Author...",BA$ 
DBOOKSCT).AUTHOR=BA$ 
ПІНРОТ "Book Publisher...",BP$ 
OBOOKSCT).PUBLISHER=BP$ 
DINPUT "Reference Number...",BOOKSCT).REFERENCE 
OENDLOOP 
1880FOR X=1 TO T-1 
OPRINT BOOKSCX).TITLE; " , "; BOOKSCX).AUTHOR; " , 
на 
? 
‚ OBOOKSCX).PUBLISHER; " , "; ВООК5СХ).КЕРЕКЕНСЕ 
ОМЕХТ X 
DEND 
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UN TIL Terminates a REPEAT loop on specified 
condition 


Syntax: | REPEAT 
procedure lines 
UNTIL expression 


Function: Ends a REPEAT loop. REPEAT establishes a loop 
that executes the encompassed procedure lines until the 
result of the expression following UNTIL is true. Because the 
loop is tested at the bottom, the lines within the loop are exe- 
cuted at least once. 


Parameters: 
procedures Statements you want to execute in the loop. 
lines 
expression A. Boolean expression (the result must be 
either True or False). 
Examples: 
REPEAT 


COUNT = COUNT*1 
UNTIL COUNT > 188 


INPUT X,Y 
REPEAT 

X = X-1 

Y = Y-1 

UNTIL X«1 OR Y<@ 


See REPEAT for more information. 
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USING Formats PRINT output 


Syntax: PRINT [£path] USING [format,] data[;data...] 


Function: Prints data using a format you specify. This state- 
ment is especially useful for printing report headings, 
accounting reports, checks, or any document requiring a spe- 
cific format. 


USING 15 actually an extension of the PRINT statement. The 
same rules that apply to the PRINT statement also apply to 
the PRINT USING statement (see PRINT). 


Parameters: 


path The number to an opened device or file. If you 
do not specify path the default is #1, the video 
screen (standard output device). To print to 
another device or file, first OPEN a path to 
that file or device (see OPEN). 


format An expression specifying the arrangement of 
the displayed data. 


data Any numeric or string constant or variable. 
Always enclose string constants within quota- 
tion marks. Separate all data items with 
semicolons or commas. 


See PRINT USING for more information. 
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VAL Converts string data to numeric data 


Syntax: VAL(string) 


Function: Converts string-type data to numeric-type. VAL is 
the inverse of the STR$ function. It returns the real value 
represented by the characters in a string. If any character іп 
the specified string is not numeric, BASICO9 returns an error. 


Parameters: 
string An ASCII string containing one or more of the 
following characters: 0123456789. + $-. 
Examples: 


PRINT VALC123) 


д5- "44.66" 
PRINT VALCA$) 


Sample Program: 


This procedure calculates an exponential value, then adds the 
necessary number of zeroes to convert it to standard notation. It 
uses STR$ to convert the original number to a string, then uses 
VAL to convert the exponent into a value to determine the cor- 
rect decimal place. 


PROCEDURE bignum 

ODIM C,PLACES,B,SIGN:STRING; ЕХ,СПУМТ,МЕМСОИУМТ, 
DECIMAL: INTEGER 

ODIM МЕМ, 2ЕКО , МЕМЕЅТ: 5ТЕІМСГС100] 

QCOUNT=~-1 
П2Ек0-"000000000000000000000000000000000000" 
DNEW="" \NEWEST="""" 

DINPUT “What number do you want to raise to the 
power of 14?...'" ,NUM 

па: NUM^14 

ÜB-STR$CA) 

DEX-SUBSTRC"E",B) 

OSIGN=MID$CB,EX+1,1) 
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DPLACES=RIGHT$CB,LENCB)-EX-1) 
OFOR T=1 TO LENCB) 
DC-MID$CB,T,1) 

ШЕ Сен." THEN 

ПОЕСТ МАГ =й 

OGOTO 19 

DENDIF 

DDECIMAL=DECIMAL+1 

ПІҒ С="Е" THEN 100 

ONEW=NEW+C 

100NEXT Т 

1 G@@ONEWCOUNT=VALCPLACES)-DECIMAL 
ONEW=NEW+LEFT$CZERO,NEWCOUNT+1) 
DFOR T=LENCNEW) TO 1 STEP -1 
DCOUNT = COUNT + 1 
ПМЕМЕ5Т«МІр%СМЕМ,Т,12»МЕМЕ5Т 
OIF MODCCOUNT,3)=2 AND Т>1 THEN 
ONEWEST="",""+NEWEST 

DENDIF 

ПМЕХТ T 

OPRINT NUM; " to the power of 14 = "; A 
OPRINT “= “; NEWEST 

DEND 
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WHILE/DO/ENDWHILE Establishes 


a loop 


Syntax: WHILE expression DO 


procedure lines 
ENDWHILE 


Function: Establishes a loop that executes the encompassed 
procedure lines while the result of the expression following 
WHILE is true. Because the loop is tested at the top, the 
lines within the loop are never executed unless the expression 
is true. 


Parameters: 
expression, A Boolean expression (has a result of True or 
False). 
procedure Program lines to execute if the expression is 
lines true. 
Examples: 


WHILE COUNT < 12 DO 
COUNT = COUNT*1 
ENDWHILE 


Sample Program: 


You must create a file of directory names using the GET sample 
program before you can use the following procedure. Copyutil 
uses the filenames created by the GET sample program to copy a 
directory’s files to another directory you specify. You must spec- 
ify a directory name that does not exist. Copyutil uses a 
WHILE/DO/ENDWHILE loop to continue copying until BASICO9 
reaches the end of the file. 
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PROCEDURE copyutil 

DDIM PATH,T,COUNT: INTEGER; FILE,JOB,DIRNAME:STRING 
DOPEN 4PATH,"dirfile":READ 

DINPUT "Name of new directory..." ,DIRNAME © 
DSHELL "MAKDIR "+DIRNAME 

DSHELL "LOAD СОРУ" 

ПАН СЕ NOTCEOFC#PATH)) DD 

DREAD #PATH,FILE 

DJDB=FILE+" "W+DIRNAME+"/"+FILE 

ПОН ERROR GOTO 19 

DPRINT "COPY 4; JOB 

DSHELL "COPY "+JOB 

1800N ERROR 

DENDWHILE 

OCLOSE #PATH 

OEND 
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WRITE Writes data to a sequential file or 
device 


Syntax: WRITE [#path,] data 


Function: Writes an ASCII record to a sequential file or to a 


device. 
Parameters: 

path A variable containing the path number of the 
file or device to which you want to send data. 
Path can be one of the the standard I/O paths 
(0, 1, 2). 

data The data you want to send over the specified 
path. 


Notes: 


Q The following information deals with writing sequential disk 
files: 


е To write file records, you must first dimension a variable to 
contain the path number of the file, then use OPEN or 
CREATE to open a file in the WRITE or UPDATE access 
mode. 


е Records сап be of any length within a file. 


е Individual data items in the input record are separated by 
ASCII null characters. You can also separate numeric items 
with comma or space character delimiters. Each input 
record is terminated by a carriage return character. 


Examples: 
WRITE #PATH,DATA$ 


о WRITE #1,RESPONSE$ 


WRITE #DUTPUT,INDEXCX) 
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OPEN #PATH,"namefile":WRITE 

FOR Т=1 TO 19 

READ NAMES 

WRITE #РАТН, NAMES 

NEXT T 

CLOSE #PATH 

DATA "JIM'","JDE" , "SUE", "TINA" "WENDY" 

DATA "SALL'","MICKIE" ,"FRED" , "MARV" , "HINNIE" 


Sample Program: 


This procedure selects 100 random values between 1 and 10. It 
uses WRITE to place the values into a disk file. Next, it reads 
the values from the file and uses asterisks to indicate how many 
times RND selected each value. 


PROCEDURE randlist 

ODIM SHOW,BUCKET:STRING 

ODIM T,PATH,SELECTC10),R: INTEGER 
[BUCKETz"«xsxxxxxxxuxnuxxuetxtkxxuk!t 
DFOR T=1 TO 10 

DSELECTCT)=0 

ПМЕХТ T 

DON ERROR GOTO 18 

DSHELL "DEL RANDFILE" 

100 ON ERROR 

DCREATE 4PATH,"randfile":UPDATE 
DFOR Т=1 TO 100 

ÜR-RNDC9)*1 

OWRITE #PATH,R 

[INEXT Т 

OPRINT “Random Distribution" 
OSEEK #PATH,@ 

OFOR T=1 TO 188 

DREAD #PATH,NUM 
OSELECTCNUM)=SELECTCNUM) + 1 

ПМЕХТ Т 

OFOR T=1 TO 16 
OSHOW=RIGHT$CBUCKET,SELECTCT)) 
OPRINT USING "56<,13<,52<,520<","Митьег",Т,4:", 
SHOW 

ПМЕХТ Т 

[CLOSE #PATH 

DEND 
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XOR Returns the exclusive OR of two values 


Syntax: орегапа1 XOR operand2 


Function: Performs the logical exclusive OR operation on two 
or more values, returning a value of either TRUE or FALSE. 


Parameters: 
ореғапа1 Boolean values ог expressions (that result іп 
operand2 values of True or False). 

Examples: 


PRINT А>2 ХОР B?3 


PRINT A$="YES" ХОВ B$-"YES" 


Sample Program: 


This procedure lets two people type numbers until one of them 
guesses the number that the computer picks. It uses XOR to 
determine that one of the numbers typed is the correct number, 
but not both. 


PROCEDURE drawstraw 

DDIM NUM1,NUM2,R:INTEGER; A:BOOLEAN 

DPRINT "This program will help you pick" 
DPRINT "between two people. Choose who will be" 
DPRINT "Person 1 and who will be Person 2." 
DPRINT "Then, enter numbers between 1 and 10" 
DPRINT "when requested." 

DPRINT 

DR=RHDC10) 

1@0INPUT "Person 1, type a number and press 
ENTER..." ,NUM1 

DINPUT "Person 2, type a number and press 
ENTER..." ,NUM2 

DA=NUM1=R XOR NUM2=R 

DIF A=FALSE THEN 

OPRINT "You^11 have to try again..." 

OPRINT 


-——————————<————— 
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OGOTO 16 

ПЕМОТЕ 

DIF NUM1=R THEN 

OPRINT "You win, Person 1" 
ПЕМОТЕ 

OIF NUM2=R THEN 

OPRINT "You win, Person 2" 
DENDIF 

OPRINT "The Number was..."; R 
DEND 
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Program Optimization 


BASICO9's multipass compiler produces a compressed and optim- 
ized low-level I-code for execution. Compared to other BASIC lan- 
guages, BASICO9 greatly decreases both the storage space 
required for program code and the execution speed of programs. 


Because BASICO9 produces I-code at a powerful level, it can 
handle numerous MPU (micro processor unit) instructions with a 
single interpretation. Therefore, for complex programs, there is 
little performance difference between the execution of I-code and 
pure machine-language instructions. 


Most BASIC languages have to compile from text as they run, or 
search tables of tokens in order to execute code. Instead, 
BASICO9 I-code instructions contain direct references to vari- 
ables, statements, and labels. BASICO9 fully utilizes the power of 
the 6809 instruction set, as well, which is optimized for efficient 
execution of compiler-produced code. 


Because BASICO9 interprets I-code, you have a variety of entry- 
time and run-time tests and development aids. The editor reports 
syntax errors immediately when they are entered. The debugger 
lets you debug using original program source statements and 
names. The I-code interpreter performs run-time error checking 
of array structures and BASIC09 functions. 


Optimum Use of Numeric Data Types 


The following notes apply to the use of BASICO9 numeric data 
types: 

е BASICO9 includes several different numeric representa- 
tions (real, integer, byte), and performs automatic type 
conversions between them. This means that without 
care, your code might contain expressions or loops that 
take more than ten times longer to execute than is 
necessary. 
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е Some BASIC09 numeric operators, such as +,-,*, and /, 


and some ВАЅІСО9 control structures include versions for 
both real and integer values. Integer versions execute 
much faster and can have slightly different properties. 
For instance, integer division discards any remainder. 


Integer operations are faster because they use corre- 
sponding 6809 instructions. Using integers increases 
speed and decreases storage requirements. Integer opera- 
tions use the same symbols as real operations, but 
ВА51С09 automatically selects the integer operations 
when when all operands of an expression are of byte or 
integer type. 


Type conversion takes time. Using expressions with oper- 
ands and operators of the same kind is most efficient. 


BASIC09’s real (floating point) math provides excellent 
performance. It includes a 40-bit binary floating point 
representation and uses the CORDIC technique to derive 
all transcendental functions. This integer shift-and-add 
technique is faster and more consistent than the common 
series-expansion approximations. 


At times, you can obtain similar or identical results in a 
number of different ways and at different execution 
speeds. For example, if the variable Value is an integer, 
then Value*2 is a fast integer operation. However, if the 
expression is Value*2.9, 2.0 is represented as a real 
number and the operation requires real multiplication. 
BASICO9 must transform the integer Value into a real 
value. If the result of the expression is assigned to an 
integer type variable, BASICO9 must transform the 
result back to an integer type. The decimal point can 
Slow the operation by about ten times. 
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Arithmetic Functions Ranked by Speed 
Typical Speed 


Operation in MPU Cycles 
Integer add or subtract 150 
Integer multiply 240 
Real add 440 
Real subtract 540 
Integer divide 960 
Real multiply 990 
Real divide 3870 
Real square root 7360 
Real logarithm or exponential 20400 
Real sine or cosine 32500 
Real power 39200 


Referring to the previous table can help you in your program- 
ming. For instance, notice that it is quicker to add a value to 
itself rather than multiplying it by 2. Similarly, multiplying a 
value by itself or using SQ on a value is much faster than rais- 
ing a value to the power of 2. 


Notice that a real divide takes 3870 cycles, while a real multipli- 
cation takes only 990 cycles. Multiplying a value by 0.5 is four 
times quicker than dividing the value by 2. 


Quicker Loops 


BASIC09 has two versions of FOR/NEXT loops, one for integer 
loop counter variables and one for real loop counter variables. It 
automatically uses the appropriate version. Integer FOR/NEXT 
loops are much faster than real FOR/NEXT loops. 


Other kinds of loops also run faster if you use integer type vari- 
ables for the loop counters. When writing program loops, remem- 
ber that statements inside the loop can execute many times for 
each execution outside the loop. Whenever possible, compute val- 
ues before entering loops. 
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Arrays and Data Structures 


The internal workings of BASIC09 use integer numbers to index 
arrays and complex data structures. This means that BASIC09 
must convert real type variable or expression subscripts before it 
can handle them. Using integer expressions for subscripts 
increases execution speed. 


Using the assignment statement LET to copy identically sized 
data structures is much faster than copying arrays or structures 
element-by-element inside a loop. 


The PACK Command 


PACK causes a second compilation of a specified procedure. 
Depending on such variables as the number of procedure com- 
ments and the inclusion of line numbers, packed procedures exe- 
cute from 10 to 30 percent faster. Line numbers cause unpacked 
procedures to run slower. 


Minimizing Constant Expressions 
and Subexpressions 


For maximum execution speed, precalculate constant expres- 
sions. For instance, x = x*5 produces the same result as x = 
x*sqrtC1802/2. However, the first expression requires approxi- 
mately 150 MPU cycles while the second expression requires 
11,650 MPU cycles. If you use such an expression inside a loop, 
the additional execution time is enormous. 


Input and Output 


Accessing data one line or record at a time is much faster than 
accessing it one character at a time. Also, the GET and PUT 
statements are much faster than READ and WRITE statements 
when accessing disk files. This is because GET and PUT use the 
same binary format as BASIC09’s internal operations. READ, 
WRITE, PRINT, and INPUT must perform binary-to-ASCII or 
ASCII-to-binary conversions, which take more time. 
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Signal Errors 
Code Meaning 
Unconditional termination 


1 
2 Keyboard termination 
3 Keyboard interrupt 


BASIC09 Error Codes 
Code Meaning 


10 Unrecognized symbol 

11 Excessive verbiage 

12 Illegal statement construction 

13 1-соде overflow, need more workspace memory 
14 Illegal channel reference, bad path number given 
15 Illegal mode (read/write/update) - directory only 
16 Illegal number 

17 Illegal prefix 

18 Illegal operand 

19 Illegal operator 

20 Illegal record field name 

21 Illegal dimension 

22 Illegal literal 

23 Illegal relational 

24 Illegal type suffix 

25 Too-large dimension 

26 Too-large line number 

27 Missing assignment statement 

28 Missing path number 

29 Missing comma 

30 Missing dimension 

31 Missing DO statement 

32 Memory full, need more workspace memory 
33 Missing GOTO 

34 Missing left parenthesis 

35 Missing line reference 

36 Missing operand 

37 Missing right parenthesis 

38 Missing THEN statement 

39 Missing TO 
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Code Meaning 


40 Missing variable reference 
41 No ending quote 

42 Тоо many subscripts 

43 Unknown procedure 

44 Multiply-defined procedure 
45 Divide by zero 

46 Operand type mismatch 

47 String stack overfiow 

48 Unimplemented routine 

49 Undefined variable 

50 Floating overflow 

51 Line with compiler error 

52 Value out of range Юг destination 
53 Subroutine stack overflow 

54 Subroutine stack underflow 
55 Subscript out of range 

56 Parameter error 

57 System stack overflow 

58 ТО type mismatch 

59 ПО numeric input format bad 
60 ПО conversion: number out of range 
61 Illegal input format 

62 ТО format repeat error 

63 T/O format syntax error 

64 Illegal path number 

65 Wrong number of subscripts 
66 Non-record-type operand 

67 Illegal argument 

68 Illegal control structure 

69 Unmatched control structure 
70 Illegal FOR variable 

71 Шера1 expression type 

72 Illegal declarative statement 
18 Array size overflow 

74 Undefined line number 

15 Multiply-defined line number 
16 Multiply-defined variable 

11 Illegal input variable 

78 Seek out of range 

79 Missing data statement 
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Windowing and System Errors 


Code 


183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
198 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
223 


Meaning 


Illegal window type 

Window already defined 

Font not found 

Stack overflow 

Шева! argument 

(unused) 

Illegal coordinates 

Internal integrity check 
Buffer size is too small 
Illegal command 

Screen or window table is full 
Bad/undefined buffer number 
Ilegal window definition 
Window undefined 

(unused) 

(unused) 

(unused) 

Path table full 

Illegal path number 
Interrupt polling table full 
Illegal mode 

Device table full 

Illegal module header 
Module directory full 
Memory full 

Illegal service request 
Module busy 

Boundary error 

End of file 

Returning non-allocated memory 
Non-existing segment 

No permission 

Bad path name 

Path name not found 
Segment list full 

File already exists 

Illegal block address 

Phone hangup data carrier detect lost 
Module not found 

Suicide attempt 
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Code Meaning 

224 Illegal process number 

226 No children, can’t wait for nonexistent child process 
227 Illegal SWI code 

228 Process aborted, signal 2 


229 Process table full, can’t fork a process 
230 Illegal parameter area 
231 Known module 


232 Incorrect module CRC 

233 Signal error 

234 Non-existent module 

235 Bad name 

237 System RAM full 

238 Unknown process ID 

239 No task number available 
240 Illegal unit error 

241 Bad sector number 

242 Write protected disk 

243 CRC error 

244 Read error 

245 Write error 

246 Not ready, device not ready 
247 Seek error 

248 Media full 

249 Wrong type, incompatible media type 
250 Device busy 

251 Disk ID change, disk changed with open files 
252 Record is locked out 

253 Non-sharable file busy 
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Assembly Language Listing of Inkey 


An assembled version of Inkey is included on the CONFIG/ 
BASICO9 diskette. Use Inkey from BASICO9 with the RUN 
statement. 


ОТОО 


+ INKEY - а subroutine for 8851009 by Robert Doggett 


+ Called by: RUN INKEY(StrVar) 

, RUN IKKEY (Path, StrVar) 

+ INKEY determines if a key has been typed on the given path 

+ (Standard Input if not specified), and if so, returns the next 
* character in the String Variable. If no key has been typed, the 
+ null string is returned. [f a path is specified, it must be 

+ either type BYTE or INTEGER. 


NAM — INKEY 
ІРРІ 
USE — /DB/DEFS/OSSDEFS 
ENDC 
8821 TYPE set  БВЕТКУОВУСТ 
9881 REVS set REENT+1 
0006 87CD00SE mod InKeyEnd,InKeyNam,TYPE,REVS 
„тКеубт4 ,S12E 
8600 496Ё6855 |пКеуМап fes — "Inkey" 
D 0000 org £ Parameters 
D 0000 Return rmb 2 Return addr of caller 
D 0002 PCount rmb 2 Num of params following 
D 0804 Parami rmb 2 ist param addr 
D 0006 length! rmb 2 size 
D 0008 Рага rmb 2 2nd param addr 
D 8984 length? rmb 2 size 
8% EsParam equ $38 
ШЕ 512Е өш“ 
6012 3064 InKeyEnt leax Рагап!,5 
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6014 ЕС62 188 Pcount,S Get parameter count 
0616 10830881 спра 41 just one parameter? 
ШЕ 2727 beq InKey2t Yes; default path A8 © 
ІС 10830002 спра 22 Are there two params? 
8620 2635 bne РагатЁгг No, abort 

0622 ECF804 Idd (Рагап!,51 Get path number 

8425 АЕ66 Idx Length! ,S 

8807 ЗМЕ leax а byte variable? 

0029 2706 Бед InKeytà Yes; (A)=Path number 
$00B 301F leax -1,) Integer? 

#820 2628 bne ParamErr „No; abort 

ОҒ 1898 fr В,А 

0931 3068 InKeyfü Іеах Рагап2,5 

0033 ЕЕ@2 InKey20 ldu 2,Х length of string 

0035 ДЕВА 1% 0,X addr of string 

0037 COFF ldb 143 

0039 £784 stb А: Initialize to null str 
0038 11830002 спри #2 at least two-byte str? 
883Е 2502 blo InKey38 „Во 

0041 E701 stb um put str terminator 
$043 C661 Inkey38 19 455. Ready 

8845 103F8D 059 IsGetStt is there any data ready? о 
8848 2508 bcs ІтКеу90 «No; exit 

$048 10850001 Idy n 

ü04E 183789 059 I$Read Read one byte 

0051 39 ris returns error status 
0052 С1Е6 InKey98 стры #ESNotRdy 

$054 2603 bne InkeyErr 

8056 39 ris (carry clear) 

0057 0638 ParamErr 196 #E$Param Parameter Error 

0059 43 InKeyErr coma 

005A 39 rts 

0058 186916 emod 

GSE InKeyEnd equ . 
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ABS command 11-4 
absolute value 11-4 
accessing 
files 8-1, 10-8 
lines (editor) 4-4-4-5 
OS-9 commands from 
BASIC 3-7 
ACS command 11-5 
adding lines 4-10 - 4-12 
addition 7-3 - 7-4 
ADDR command 11-6 
address 
of variable 6-8, 11-6 
space 11-6 
advantages of BASIC09 
1-2 
ALPHA (medium-res) 9-9, 
9-13 
alphanumeric 
mode 9-10 
screen 9-9, 9-13, 9-30 
ALT key 1-6, 9-4 
AND 
command 11-8 
logical AND 
command 11-84 
operator 7-8, 7-4, 7-7 
appending 
data to files 8-3 
strings 7-6 
ARC command (high-res) 
9-50 
arccosine 11-5 
arcsine 11-10 
arctangent 11-11 
arithmetic 
function speed 12-2 
operators 7-3 
array 6-9 - 6-13 
address 11-6 
element 6-9 
index 11-12 
with random access 
files 8-9 
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ASC command 11-9 
ASCII 
character value 11-18 
codes 9-1 - 9-6, 11-9 
ASN command 11-10 
assign 
variable storage 11-31 
variable values 11-78 
variables (debug) 5-3 
АТМ command 11-11 
auto executicn 3-8 
automatic error checking 1-4 


background color 
high-resolution 9-34 
medium-resolution 9-11 
backslash 1-6 
BAR command (high-res) 
9-52 - 9-53 
base 10 logarithm 11-83 
BASE command 11-12 - 
11-13 
BASICO9 
advantages 1-1 - 1-2 
graphics with 128К 
9-37 - 9-39 
quitting 1-5, 3-1 
starting 1-2 - 1-4 
starting windows 
from 9-39 - 9-41 
beep 9-54 
beginning debug 5-1 
BELL command (high-res) 
9-54 
binary data record 11-58 
BLNKOFF command (high- 
res) 9-55 
BLNKON command (high- 
res) 9-55 
BOLDSW command (high- 
res) 9-56 
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Boolean 
data 6-1 - 6-2, 6-5 
functions 7-10 
OR 11-106 
ТЕСЕ 11-175 - 11-176 
value 11-51 
border color (high-res) 9-68, 
9-65 
BORDER command (high- 
res) 9-58 
BOX command 9-60 - 9-61 
brace characters 1-6 
BREAK 
command (debug) 5-2 
key 1-6, 5-2 
breakpoint (debug) 5-2 
buffer 
defining 9-78 
font (high-res) 9-94 
get/put (high-res) 9-117 
group (high-res) 9-101 
pattern (high-res) 9-111 
button, joystick (medium- 
res) 9-9, 9-22 
BYE command 1-5, 3-1, 10-9, 
11-14 
byte 
data type 6-1 - 6-2 
numeric range 6-2 
retrieval from a file 8-5 
type functions 7-9 


calculate 
low-res characters 9-5 
sine 11-154 
square root 11-158 
call a shell command 10-9 
carriage return 1-7 
high-resolution 9-67 
CHAIN command 11-15 - 
11-16 
changing 
a procedure name 10-9 
color (high-res) 9-65 - 
9-66 


changing (cont’d) 
color (medium-res) 9-9 
directory 3-1, 3-7, 10-9, 
11-17, 11-19 
file pointer 11-148 
procedures 1-4 
scale (high-res) 9-121 - 
9-122 
text 4-7 - 4-9 
text (editor) 4-1 - 4-2 
working area (high-res) 
9-76 
character 
backslash 1-6 
blink (high-res) 9-55 
braces 1-6 
brackets 1-6 
fonts 9-43 - 9-44 
graphic 1-6 
high-resolution 9-8, 9-94 
reverse video (high- 
res) 9-120 
tilde 1-6 
underline (high-res) 
9-126 
underscore 1-6 
up arrow 1-6 
value 11-18 
vertical bar 1-6 
CHD command 3-1, 3-7, 
10-9, 11-17, 11-19 
CHX command 3-1, 3-7, 
10-9, 11-17 - 11-19 
CIRCLE 
high-resolution 9-62 
medium-resolution 9-9, 
9-15 - 9-16 
CLEAR 
high-resolution 9-64 
key 1-6 
medium resolution 9-9, 
9-17 
close a window (high-res) 
9-83 - 9-84 


CLOSE command 11-20 - 
11-21 
code 
ASCII 9-1 - 9-6, 11-9 
error 11-43, Al - А4 
COLOR 
high-resolution 9-65 
medium resolution 9-9, 
9-18, 9-19 
color 
codes (medium-res) 
9-10 - 9-11 
default 9-79 
high-resolution 9-31, 
9-109 - 9-110 
medium-resolution 9-11 
of border (high-res) 
9-58 - 9-59 
of pixel (medium-res) 
9-28 - 9-29 
of screen (medium- 
res) 9-26 
palette default 9-79 
set (medium-res) 9-18 - 
9-19 
command 
interpreter 3-1 
line storage area 3-3 
line symbols 11-2 
lines using spaces 2-2 
mode 1-3 
mode reference 10-9 
commands 
by type 10-7 
configuring (high-res) 
9-47 
debug 10-11 
drawing (high-res) 9-46 
editing 10-10 
executing OS-9 3-7 - 3-8 
font (high-res) 9-49 
quick reference 10-1 - 
10-6 
system 3-1 


Index 


commands (contd) 
text/cursor (high-res) 
9-48 
using wildcards 3-5 
window (high-res) 9-45 
comments in a procedure 
11-135 - 11-136 
compile procedure 3-1, 3-8 - 
3-9, 10-9 
compiler, multipass 12-1 
compiling 
procedures 1-5 
saving space 1-2 
complement, logical 11-96 
complex 
data structure 1-2, 
8-11 - 8-12, 11-177 - 
11-178 
data types 6-1, 6-13 - 
6-16 
compressed procedures 12-1 
concatenation 7-3 
condensed procedures 3-1 
configuring commands (high- 
res) 9-47 
constant expressions 12-4 
constants, string 6-7 
control key 1-6 
converting 
data types 6-6, 7-2 
numeric types 11-54, 
11-71, 11-162 - 11-163 
string data 11-181 - 
11-183 
copying structure elements 
6-16 
COS command 11-22 
cosine 11-22 
create 
data types 11-177 
overlay windows (high- 
res) 9-107 
procedures 2-1 
random access files 8-6 - 
8-9 
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create (солға) 
sentences procedure 4-3 
sequential files 8-2 - 8-3 
windows 9-35 - 9-36 
CREATE command 8-2 - 8-3, 
8-6 - 8-7, 11-23 - 11-24 
CRRTN command (high- 
res) 9-67 
CTRL key 1-6 - 1-7 
CTRL-BREAK key 
sequence 1-6, 3-1 
CURDWN command (high- 
res) 9-68 
CURHOME command 9-69 
CURLFT command (high- 
res) 9-70 
CUROFF command (high- 
res) 9-71 
CURON command (high- 
res) 9-72 
current command line 1-7 
CURRGT command (high- 
res) 9-73 
cursor 
graphics (high-res) 9-95, 
9-119 
graphies (medium- 
res) 9-27 
invisible (high-res) 9-71 
movement 1-6, 9-67 - 
9-68, 9-74 - 9-75 
position 11-116 
CURUP command (high- 
res) 9-74 
CURXY command (high- 
res) 9-75 
CWAREA command (high-res) 
9-76 - 9-77 


data 
changing in sequential 
file 8-4 
complex types 
6-13 - 6-16 
constants 6-6 - 6-7 


6-1, 


data (cont’d) 
directory 3-7 
items 6-1 
manipulation 7-1 - 7-2 
meaning 6-1 
pointer 11-140 
reading 11-132 - 11-133 
structure 1-2, 11-177 - 
11-178, 12-2 
structure address 11-6 
to files 8-1 
type, Boolean 6-5 
type, byte 6-2 
type, conversion 7-2 
type, integer 6-3 
type, real 6-3 - 6-4 
types 6-1, 10-8, 11-177 - 
11-178, 12-1 
types, creating 11-177 - 
11-178 
DATA command 11-25 - 
11-26 
DATE$ command 11-27 - 
11-28 ; 
day 11-27 
deallocate 
buffer (high-res) 9-101 - 
9-102 
graphics memory 9-30 
windows (high-res) 
9-83 - 9-84 
debug 
beginning 5-1 
breakpoint 5-2 
commands 5-2 - 5-4, 
10-11 
display procedure 5-3 
quitting 5-3 
starting 5-1, 5-4 - 5-5, 
11-112 
tracing 5-4 
debug command 
$ 5-2 
BREAK 5-2 
CONT 5-2 


Index 


debug command (cont’d) 
DEG 5-2 
DIR 5-3 
LET 5-3 
LIST 5-3 
PRINT 5-3 
Q 5-3 
RAD 5-2 
STATE 5-3 
STEP 5-4 
TROFF 5-4 
TRON 5-4 
default colors 9-79 
DEFBUFF command (high- 
res) 9-78 
DEFCOL command (high- 
res) 9-79 
define a window (high-res) 
9-86 - 9-87 
defining string variables 6-4 
DEG command 11-29 
degrees, selecting in debug 
5-2, 11-29 
DELETE command 11-30 
delete line 1-6, 2-2 
editor 4-2 
high-resolution 9-80, 
9-92 
deleting 
procedure lines 4-6 - 4-7 
procedures 3-6 
delimiter 4-8 
in sequential files 8-2 
symbols (editor) 4-8 
DELLIN command (high- 
res) 9-80 
device path 11-104 
DIM command 11-31 - 11-32 
DIM statement 6-2, 11-31 
DIR 
command 3-1 -3-2, 10-9 
debug 5-3 
file access 8-1 


directory 
change 3-1, 3-7, 11-17, 
11-19 
data 3-7 
execution 3-7 
ROOT 3-7 
disassembled procedure 3-3 
disk file 8-1 
creation 11-23 
deletion 11-30 
display 
a formatted listing 10-9 
a window 1-6, (high- 
res) 9-123 - 9-124 
clearing (medium- 
res) 9-17 
current command 
line 1-7 
lastline 1-7 
previous window 1-6 
procedure 3-1 
procedure from debug 
5-3 
procedure 
information 3-1, 10-9 
text 11-119 - 11-120 
workspace size 3-1, 10-9 
division 7-8 
remainder 11-93 
DO command 11-34 
dot, graphics (medium-res) 
9-28 - 9-29 


draw 
а circle (high-res) 9-62 - 
9-63 
a circle (medium-res) 
9-9, 9-15 - 9-16 
а line (high-res) 9-108 - 
9-104 


an ellipse 9-88 - 9-89 

arcs (high-res) 9-50 - 
9-51 

command (high-res) 
9-46, 9-81 - 9-82 

pointer (high-res) 9-125 
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draw (cont'd) 
pointer (medium-res) 
9-12 
lines (medium-res) 
9-24 - 9-25, 9-103 
rectangles (high-res) 
9-52 - 9-53, 9-60 - 9-61 
DWEND command (high- 
res) 9-83 - 9-84 
DWPROTSW command (high- 
res) 9-85 
DWSET command (high- 
res) 9-86 - 9-87 


edit 
compiler 3-1 
mode, entering 1-4 
pointer 4-1 
terminating 2-3 
EDIT command 3-1, 10-9 - 
10-10 
editor 4-1 - 4-9 
element 6-9 
elements 
of a structure, 
copying 6-16 
of an array 6-9 
ELLIPSE command (high- 
res) 9-88 - 9-89 
ELSE command 11-35 
END command 11-36 - 11-37 
end execution 11-14 
end-of-file 
message 1-6 
test 11-42 
ENDEXIT command 11-38 
ENDIF command 11-39 
ENDLOOP command 11-40 
ENDWHILE 11-41 
ENTER 
command (editor) 4-1 
in the editor 4-4 
key 1-7 


entering 
debug 5-4 - 5-5 
the edit mode 1-4 
EOF command 11-42 
equal operator 7-5 
erase 
а disk file 11-30 
procedures 3-1, 11-72 
to end of line 9-90 
to end of window 9-91 
EREOLINE command (high- 
res) 9-90 
EREOWNDW command (high- 
res) 9-91 
ERLINE command (high- 
res) 9-92 
ERR command 11-48 - 11-44 
error 
checking, automatic 1-4 
code 11-43 - 11-44, 
A-1 - А-4 
in a program line 2-2 
simulation 11-45 - 11-46 
trapping 11-97 - 11-99 
ERROR command 11-45 
escape function 1-6 
establishing a window 9-32, 
9-41, 9-86 - 9-87 
evaluating expressions 7-1 - 
7-2 
evaluation, order of 
operators 7-4 - 7-5 
examine 
a procedure 4-4 
memory 11-113 
exclusive OR 11-187 - 11-188 
EXEC file access 8-1 
executable procedures 3-8 
execute 
a procedure 2-3, 3-1, 
3-8, 10-9, 
11-145 - 11-147 
an OS-9 command 3-1, 
3-7 - 3-8 


execute (солга) 

modules 11-15-11-16 

procedure lines 11-34 
execution 

automatic 3-8 - 3-9 

directory change 3-1, 

8-7 

speed 1-1 

stepping 5-5 - 5-6 

stopping 11-161 

termination 11-14 
EXITIF/THEN/ENDEXIT 

commands 11-47 

exiting 

BASICO9 1-5 

debug 5-3 
EXP command 11-50 
exponent, natural 11-50 
exponentiation 7-3 
expression 7-1 


FALSE 
command 11-51 - 11-52 
value 7-7 

faster loops 12-2 

file 

listing procedures to 3-4 

path 11-104 

pointer 8-3, 8-5, 

11-148 - 11-149 
pointer, rewinding 8-11 
retrieving bytes 8-5 
writing 11-129 - 

11- 130, 11-185- 

11-186 

8-1 
accessing 8-1, 10-8 
appending data 8-3 
closing 11-20 - 11-21 
creating random 

access 8-6 - 8-9 
creating sequential 8-2 - 

8-4 
creation 11-23 - 11-24 
opening 11-104 - 11-105 


files 


Index 


files (cont’d) 
random access 8-5 - 
8-11 
writing to 8-3 
FILL command (high-res) 
9-93 
filled rectangles (high-res) 
9-52 - 9-53 
finding 
graphics screen (medium- 
res) 9-20 - 9-21 
lines 4-5 
fire button (medium-res) 9-22 
FIX command 11-53 
FLOAT command 11-54 
FONT command (high-res) 
9-94 
font-handling commands (high- 
res) 9-49 
fonts 9-43 - 9-44 
FOR/NEXT loops 11-159 - 
11-160 
FOR/NEXT/STEP 
commands 11-55 - 11-57 
foreground color 
high resolution 9-65 - 
9-66 
medium resolution 9-11, 
9-18 - 9-19 
fork a shell 11-152 - 11-153 
{о а window 9-32 
format 
medium resolution 9-10 
of screen (medium- 
res) 9-26 
of windows 9-34 
formatted procedure 3-1 
formatting 
display screen 11-180 
screen display 11-122 - 
11-127 
functions 7-7 - 7-10 
Boolean type 7-10 
byte type 7-9 
integer type 7-9 


А 
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functions (cont’d) 
logical 7-10 
numeric type 7-9, 10-7 
real type 7-8 
string 7-10, 10-7 
trace 5-5 - 5-6 
transcendental 10-7 


GCOLR (medium-res) 9-9 
GCSET command (high- 
res) 9-95 
GET command 8-5, 11-58 
high-resolution 9-96 
GET/PUT buffer 9-78 
high-resolution 9-101 
GET/PUT commands (high- 
res) 9-47 
global symbol (editor) 4-5 
GLOC (medium-res) 9-9, 
9-20 
GOSUB/RETURN 
commands 11-61 
GPLOAD command (high- 
res) 9-98 
graphics 
characters 1-6 
cursor (high-res) 9-95, 
9-119 
cursor (medium-res) 
9-9, 9-27 
high-resolution 9-31 - 
9-126 
levels 9-1 
logic functions 9-105 
low resolution 9-4 - 9-8 
medium-resolution 9-8 - 
9-30 
memory deallocate 9-30 
number of levels 1-2 
pattern (high-res) 
9-111 - 9-112 
pointer (high-res) 9-42 
screen (medium-res) 
9-26 


graphics (cont’d) 
screen location (medium- 
res) 9-20 - 9-21 
window 9-35 - 9-36 
with 128K 9-37 - 9-40 
greater than 7-3, 7-5 
grid format (medium-res) 
9-10 
group 
buffer (high-res) 9-101 - 
9-102 
number 9-78 


hardware window 9-82 - 9-35 
high-resolution 9-31 - 9-126 
adapter 9-22 
characters 9-8 
colors 9-109 - 9-110 
quick reference 9-44 - 
9-49 
text 9-42 
hour 11-27 


I-Code 3-3, 12-1 
IF/THEN/ELSE loop 11-35 
IF/THEN/ELSE/ENDIF 
commands 11-63 - 11-65 
image, get (high-res) 9-98 
immortal shell 9-32 
initialize a disk file 11-23 - 
11-24 
INIZ command 9-32 - 9-33 
Inkey program В-1 - В-2 
INPUT command 8-5, 11-68 - 
11-70 
input/output 12-4 
insert 
а line (high-res) 9-99 - 
9-100 
text (editor) 4-1 
INSLIN command (high- 
res) 9-99 - 9-100 
INT command 11-71 
integer 
constants 6-7 


Index 


integer (cont’d) 
data type 6-1, 6-2, 6-3 
functions 7-9 
numeric range 6-2 
interfacing with OS-9 1-1 
invisible cursor (high-res) 
9-71 


JOYSTK 9-9, 9-22 
jump 
to line number 11-102 - 
11-103 
to subroutine 11-100 - 
11-101 


key 
ALT 1-6, 9-4 
BREAK 1-6, 5-2 
CLEAR 1-6 
CTRL 1-6-1-7 
ENTER 1-7 
key sequence 
CTRL with other 
keys 1-6 - 1-7 
SHIFT with other 
keys 1-6 
keyword 11-1 
KILL command 3-1, 3-6, 
10-9, 11-72 - 11-73 
KILLBUFF command (high- 
res) 9-101 
killing a procedure 3-6 


LAND command 11-74 - 
11-75 

language modules 1-5 

last line, displaying 1-7 

left brace 1-6 

left bracket 1-6 

LEFT$ command 11-76 

LEN command 11-77 

length of string variables 6-4 

less than 7-3 - 7-4, 7-5 


LET command 6-8, 11-78 - 
11-79 
debug 5-3 
LINE (medium-res) 9-9 
line 
accessing (editor) 4-5 
adding 4-10 - 4-12 
adding (editor) 4-10 
erasing 9-90 
see also line, deleting 
inserting (high-res) 
9-99 - 9-100 
jumping to 11-102 - 
11-103 
numbers 4-5 
renumbering 4-2, 4-10 
LINE command 
high-resolution 9-103 
medium-resolution 9-24 
line deleting 1-6, 2-2, 9-92 
editor 4-2 
high-resolution 9-80 
in procedures 4-6 - 4-7 
LIST command 3-1, 3-2 - 3-5, 
4-6, 10-9 
listing 
procedures 3-2 - 3-5, 
6-6, 10-9 
procedure lines 
(editor) 4-2 
toa file 3-4 
toa printer 3-4 
LNOT command 11-80 - 
11-81 
LOAD command 3-1, 3-6, 
10-9 
loading 
a buffer (high-res) 9-98 
BASICO9 1-2 - 1-4 
procedures 3-1, 3-6, 
10-9 
window image (high- 
res) 9-101 - 9-102 
local variable 6-7 
LOG command 11-82 


BASICO9 Reference 


10С10 command 11-83 
logarithm 11-82, 11-83 
logic comparison 6-5 
LOGIC command (high- 
res) 9-105 - 9-106 
logical 
AND 11-8, 11-74 - 
11-75 
block (file) 8-1 
complement 11-96 
functions 7-10 
NOT 11-80 - 11-81, 
11-96 
operators 7-7 
OR 11-87 - 11-88 
XOR 11-89 - 11-91 
loop 
EXITIF/ENDEXIT/ 
ENDEXIT 11-38, 
11-47 - 11-49 
FOR/NEXT 11-55, 
11-57, 11-95, 
11-159 - 11-160 
IF/THEN/ELSE/ENDIF 
11-35, 11-39, 
11-63 - 11-65 
LOOP/ENDLOOP 
11-40, 11-84 - 11-86 
REPEAT/UNTIL 
11-137 - 11-139, 
11-179 
WHILE/DO/ 
ENDWHILE 11-34, 
11-41, 11-183 - 11-184 
loop repetition 11-95 
LOR command 11-87 - 11-88 
low-resolution 9-1 - 9-7 
LXOR command 11-89 - 
11-91 


math 1-2. 
medium-resolution 9-8 - 9-30 
format 9-10 - 9-11 
MEM command 1-3 - 1-4, 

8-1, 10-9 
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memory 

changing 11-116 - 
11-117 

examining 11-113 - 
11-114 


in the workspace 3-1 
requesting 1-8 - 1-4 
saving 1-2 
size 1-3, 1-4 
message, end-of-file 1-6 
MID$ command 11-92 
minimizing storage 12-1 
minutes 11-27 
mistakes in program lines 
2-2 
mixing data types 7-2 
MOD command 11-93 
MODE (medium-res) 9-9, 
9-26 
modes 
command 1-3 
edit 1-4 
module 
execution 11-15 
high-resolution 9-31 
medium-resolution 9-8 - 
9-9 
modulus 11-93 11-94 
month 11-27 
mouse (medium-res) 9-22 
MOVE (medium-res) 9-9, 
9-27 
move cursor 1-6 
high-resolution 9-68, 
9-70, 9-73 - 9-75 
move 
backward (editor) 4-5 
draw pointer (high- 
res) 9-125 
graphics cursor (high- 
res) 9-95 
the edit pointer 4-1 
multipass compiler 12-1 
multiplication 7-3 - 7-4 


natural exponent 11-50 
negation 7-3 
nesting order (debug) 5-3 
NEXT command 11-95 
NOT command 11-96 
not equal to 7-3, 7-4, 7-5 
NOT, logical 11-80 - 11-81 
operator 7-4, 7-7 
null constants 6-9 
numbers for lines 4-5 
numeric 
constants 6-6 
data conversion 11-162 - 
11-163 
data types 12-1 - 12-2 
functions 10-7 
type conversion 11-54, 
11-71 
type functions 7-9 


ON ERROR/GOTO 
command 11-97 - 11-99 
ON/GOSUB command 
11-100 - 11-101 
ON/GOTO command 11-102 - 
11-103 
OPEN command 8-3, 
11-104 - 11-105 
operands 7-2 
operators 7-1 
arithmetic 7-3 - 7-4 
equal 7-5 
greater than 7-5 
hierarchy of 7-4 
less than 7-5 
logical 7-7 
relational 
string 7-6 
types 7-3 
unequal 7-5 


7-5 - 1-6 , 


OR 
command 11-106 
logical 11-87 - 11-88 
operator 7-7 


Index 


order 
of nesting (debug) 5-3 
of operators 7-4 - 7-5 
OS-9 commands 11-152 
accessing 3-7 - 3-8 
overlay windows 9-41, 9-107 - 
9-108 
OWSET command (high- 
res) 9-107 - 9-108 


PACK command 3-1, 3-8, 3-9, 
10-9, 12-4 
paint (high-res) 9-93 
PALETTE command (high- 
res) 9-109 - 9-110 
palette 
default colors 9-79 
high-resolution 9-34 - 
9-35 
registers 9-35 
PARAM command 6-8, 
11-108 - 11-111 
passing variables 6-8, 
11-108 - 11-111 
path 
input 11-68 
opening 11-104 - 11-105 
PATTERN command (high- 
res) 9-111 - 9-112 
PAUSE command 5-5, 11-112 
PEEK command 9-20, 
11-113 - 11-114 
PI command 11-115 
pixel 9-34 
color (medium-res) 
9-28 - 9-29 
set (high-res) 9-113 - 
9-114 
plus sign 7-6 
POINT 
high-resolution 9-113 - 
9-114 
medium-resolution 9-10, 
9-28 - 9-29 
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pointer 
draw (hi-res) 9-42, 
9-125 
draw (medium-res) 9-12 
edit 4-1 
file 8-5 
graphics 9-42 
READ 11-140 
POKE command 9-20, 11-116 
POS command 11-118 
position 
graphics cursor (medium- 
res) 9-9 
of arecordina file 8-5 
of cursor 11-118 
power of 2 11-157 
predefined windows 9-32 - 
9-33 
PRINT command 11-119 - 
11-120 
debug 5-3 
PRINT USING command 
11-122 - 11-128, 
11-180 - 11-182 
printer, listing files 3-4 
printing (tabs) 11-166 - 
11-167 
procedure 
changing 1-4 
comments 11-135- 
11-136 
compilation 10-9 
compiling 1-5 
compressing 12-1 
condensing 3-1 
data size 3-2 
deleting 3-6 
disassembling 3-3 
display 3-1 
displaying information 
about 3-1 
erasing 3-1, 11-72 - 
11-78 
examining 4-4 
executing 1-5 
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procedure (cont'd) 
execution 2-3, 3-1 
grouping 1-4 ` 
listing 3-2 - 3-3, 4-6 
loading 3-6 
renaming 3-2 
returning from 11-141 
saving 3-1, 3-5 - 3-6, 
10-9 
size 3-2 
suspending 11-112 
terminating 11-36 - 
11-37, 11-161 
tracing 11-174 
writing 2-1 - 2-2 
procedures 
executable 3-8 
executing 11-145 - 
11-147 
loading 3-1 
program 
execution termination 
1-6 
mistakes 2-2 
modular 1-1 
proportional text (high-res) 
9-115 - 9-116 
PROPSW command (high- 
res) 9-115 - 9-116 
protect window switch (high- 
res) 9-85 
PUT command 8-5, 8-6, 
9-117 - 9-118, 
11-129 - 11-130 
PUTGC command 9-119 


QUIT (medium-res) 9-10, 
9-30 
quit 
BASICO9 1-5, 3-1 
debug 5-3 
the editor 2-3, 4-2 


RAD command 5-2, 11-131 
radians 5-2, 11-131 


Index 


random access files 8-5 - 8-11 
and arrays 8-9 - 8-11 
creating 8-6 - 8-9 

random value 11-148 - 

11-144 
range of numbers 6-2 
READ 8-4, 11-25, 11-132 - 
11-133 
file access 8-1 

read 
input 11-66 - 11-70 
pixel color (medium- 

res) 9-9 

read a record 11-58 - 11-60 

real 
constants 6-7 
data type 6-1 - 6-4 
functions 7-8 
number conversion 

11-71 
number range 6-2 
number rounding 11-53 

record 8-2 
binary data 11-58 
position 8-5 

rectangle, drawing (high- 

res) 9-52 - 9-53, 9-60 - 
9-61 
reduce memory size 1-4 
registers palette 9-35, 9-109 - 
9-110 

relational operators 7-5 - 7-6 

relative storage area 3-3 

REM command 11-135 - 

11-136 

remainder (division) 

removing 
disk files 11-30 
procedures 3-6, 10-9, 

11-72 
spaces 11-172 - 11-173 

RENAME command 3-1 

renaming procedures 3-2 

renumbering lines (editor) 

4-2, 4-10 


11-93 


REPEAT/UNTIL 
commands 11-137 - 
11-139, 11-179 
requesting memory 1-3 - 1-4 
reset file pointer 11-148 - 
11-149 
RESTORE command 11-140 
retrieving bytes from a file 
RETURN command 11-141 
returning 
from subroutine 11-61 - 
11-62 
to OS-9 10-9 
reverse video (high-res) 9-120 
REVON command (high- 
res) 9-120 
rewind a file 8-11 
right brace 1-6 
right bracket 1-6 
RIGHT$ command 11-142 
ring bell 9-54 
RND command 11-143 - 
11-144 
ROOT directory 3-7 
rounding a real number 
11-53 
RUN command 3-1, 6-8, 10-9, 
11-145 - 11-147 


SAVE command 3-1, 3-5, 10-9 
saving 
a window area 9-96 - 
9-97 
graphic images (high- 
res) 9-117 - 9-118 
memory 1-2 
procedures 3-1, 3-5 
space by compiling 1-2 
SCALESW command (high- 
res) 9-121 - 9-122 
screen 
alphanumeric 9-30 
blink (high-res) 9-55 
clearing (high-res) 9-64 
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screen (соп?) 
clearing (medium- 
res) 9-9, 9-17 
color (medium-res) 9-26 
display 11-122 
format (medium-res) 
9-26 
formatting 11-180 
location (medium-res) 
9-20 - 9-21 
resolution 9-31 
selecting (medium- 
res) 9-13 - 9-14 
switching (medium- 
res) 9-9 
searching 
for text (editor) 4-2, 4-9 
іп strings 11-164 - 
11-165 
seconds 11-27 
SEEK command 11-148 - 
11-149 
select a window 9-32 - 9-33 
SELECT command (high- 
res) 9-123 - 9-124 
selecting memory 1-3 
sending a carriage return 
9-67 
sentence-creating 
procedure 4-3 
sequential file writes 
11-185 - 11-186 
SETDPTR command (high- 
res) 9-125 
setting 
a point (medium-res) 
9-10, 9-28 - 9-29 
border color (high- 
res) 9-58 - 9-59 
color (medium-res) 9-18 
pixel (high-res) 9-113 - 
9-114 
READ pointer 11-140 
screen (medium-res) 9-9 
SGN command 11-150 - 
11-151 
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SHELL command 11-152 - 
11-153 
shell commands 10-9 
SHIFT-« key sequence 1-6 
SHIFT-BREAK key 
sequence 1-6 
SHIFT-CLEAR key 
sequence 1-6 
show text 11-119 - 11-121 
sign of a value 11-150 - 
11-151 
simulating ап error 11-45 - 
11-46 
SIN command 11-154 
sine 11-154 
single-diménsioned array 
6-9 - 6-10 
SIZE command 11-155 - 
11-156 
size 
data 3-2 
memory 1-3 
procedure 3-2 
space 
removing 11-172 - 
11-173 
saving by compiling 1-2 
spaces in command lines 2-2 
special keys 1-5 - 1-7 
speed 
of arithmetic 
functions 12-2 
of execution 1-1 
SQ command 11-157 
SQR/SQRT commands 11-158 
square root 11-158 
starting 
a shell in a window 9-36 
BASICO9 1-2-1-4 
STATE command (debug) 5-3 
statements 10-7 
status of joystick (medium- 
res) 9-22 - 9-23 
STEP command 5-4, 11-159 - 
11-160 


step га е (debug) 5-4 
stepping through 
procedures 5-5 - 5-6 
STOP command 11-161 
stop program execution 1-6 
storage 
area of command 
lines 3-3 
minimization 12-1 
of variables 11-31 - 
11-33 
storing 
data 11-25 - 11-26 
іп memory 11-116 - 
11-117 
STR$ command 11-162 - 
11-163 
string 
constants 6-7 
data conversion 11-181 - 
11-182 
data type 6-1 - 6-2 
functions 10-7 
length 6-4, 11-77 
operators 7-6 


storage 6-5 
variables 6-4 - 6-5 
strings 


appending 7-6 
portioning 11-76, 11-92, 
11-142 
searching 11-164 
structured programming 1-1 
structures, complex data 
8-11 - 8-15 
subroutine 
commands 11-61 - 11-62 
jumps 11-100 - 11-101 
SUBSTR command 11-164 - 
11-165 
substrings 11-92 
subtraction 7-3 - 7-4 
suspending execution 11-112 
switching screens (medium- 
res) 9-9, 9-13 - 9-14 


Index 


symbolic debugging 5-1 
syntax 11-1 
system 
commands 3-1 
interfacing 1-1 


TAB command 11-166 - 
11-167 
TAN command 11-168 
tangent 11-168 
terminating 
а procedure 11-36 - 
11-37, 11-161 
the editor 4-2 
test for end-of-file 11-42 
text 
changing 4-2, 4-7 - 4-9 
characters (high-res) 
9-94 
display 11-119 - 11-121 
fonts 9-43 - 9-44 
formatting 11-122 - 
11-128 
high-resolution 9-42 - 
9-44 
proportional 9-115 - 
9-116 
searching 4-2, 4-9 
cursor commands (high- 
res) 9-48 
three-dimension arrays 6-13 
tilde 1-6 
time 11-27 - 11-28 
tracing 
execution 5-4 - 5-6, 
11-174 
transcendental functions 10-7 
trapping errors 11-97 - 11-99 
TRIM$ command 11-172 - 
11-173 
TROFF command (debug) 
5-4, 11-174 
TRON command 5-4 - 5-6, 
11-174 
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ТКОЕ command 11-175- 
11-176 
turning off Ше cursor 9-71 
two-dimension array 6-9 
type 
conversion 6-6, 7-2 
mismatch 6-6 
of data 6-1 - 6-16, 10-8 
of file access 8-1 
of operators 7-3 
TYPE command 8-12, 
11-177 - 11-178 


underscore 1-6 

UNDLNOFF command (high- 
res) 9-126 

UNDLNON command (high- 
res) 9-126 

unequal 7-5 

UNTIL 11-137 - 11-139, 
11-180 

up arrow 1-6 

UPDATE 8-1, 8-4 

USING command 11-180 - 
11-182 

using debug 5-4 - 5-5 


VAL command 11-181 - 
11-182 
value 
absolute 11-4 
Boolean 11-51 - 11-52 
random 11-143 - 11-144 
variable 
address 6-8, 11-6 
initialization 6-8 
local 6-7 
passing 6-8 - 6-9, 
11-108 - 11-111 
size 11-155 - 11-156 
storage 11-31 - 11-33 
value of 11-78 - 11-79 
variables 11-2 


assigning (debug) 5-3 
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local 6-7 
string 6-4 - 6-5 
vector 6-13 
vertical bar 1-6 
video 
address (medium-res) 
reverse (high-res) 9-120 
visible cursor (high-res) 9-72 


WCREATE command 9-38 - 
9-34 
WHILE/DO/ENDWHILE 
loop 11-34, 11-41, 
11-180 - 11-181 
whole number, range 6-2 
wildcard 
editor 4-1 
using with commands 
8-5 
window 
area, saving 9-96 - 9-97 
commands (high-res) 
9-45 
deallocating (high- 
res) 9-83 - 9-84 
defining (high-res) 
9-86 - 9-87 
display 1-6, 9-123 - 
9-124 
erasing 9-91 
establishing 9-32 - 9-41 
formats 9-34 
graphics 9-35 - 9-36 
hardware 9-32 - 9-35 
image (high-res) 9-101 - 
9-102 
overlay (high-res) 
9-107 - 9-108 
protect switch (high- 
res) 9-85 
shell 9-36 
working area (high-res) 
9-76 - 9-77 


Index 


windows writing 
defining 9-33 - 9-34 a procedure 2-1 - 2-2 
from BASICO9 9-39 - to files 8-3, 11-129 
9-41 
overlay 9-41 XOR command 11-187 - 
predefined 9-32 - 9-33 11-188 
with high-resolution XOR operator 7-7 
9-31 


working area (high-res) 9-76 year 11-27 
workspace 1-3, 3-1 
WRITE command 11-185 - 

11-186 
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